Koja slucajnost, ja isto sam sinoc isto uradio jedan imenik i to u Paskalu (a u cemu drugom). Radio sam ga na brzinu i ima par bugova, ali otprilike ovako izgleda kod.
Jos jedna mana mu je sto ne moze da cuva podatke, (nisam stigao i to napraviti) ali cu i to brzo ispraviti.
Code:
Program Tel_imenik;
Uses Crt;
Type osoba=record
ime:string[10];
prezime:string[15];
fiksni:string;
mob:string;
adresa:string[30];
broj:integer;
end;
Var i,j:integer;
mem:array [1..100] of osoba;
o:char;
procedure unos;
var o:char;
begin
window (20,5,50,20);
textbackground (1);
clrscr;
Repeat
clrscr;
with mem[i] do
begin
broj:=i;
writeln ('UNOS BROJ ',i);
write ('IME: ');
readln (ime);
write ('PREZIME: ');
readln (prezime);
write ('BROJ FIKSNOG TEL: ');
readln (fiksni);
write ('BROJ MOBILNOG TEL: ');
readln (mob);
write ('ADRESA: ');
readln (adresa);
end;
writeln;
writeln ('Novi unos D/N?');
o:=readkey;
inc(i,1);
Until (o='n') or (o='N');
end;
procedure ispis (var n:integer);
var x:integer;
o:char;
begin
window (20,5,50,20);
textbackground (1);
Repeat
clrscr;
with mem[n] do
begin
writeln ('UNOS BROJ ',broj,'.');
writeln ('IME: ',ime);
writeln ('PREZIME: ',prezime);
writeln ('BROJ FIKSNOG TEL: ',fiksni);
writeln ('BROJ MOBILNOG TEL: ',mob);
writeln ('ADRESA: ',adresa);
end;
writeln ('NASTAVI ISPIS D/N?);');
o:=readkey;
inc(n,1);
until (o='n') or (o='N');
end;
procedure pretrazi;
var j,o,br:integer;
podatak:string;
begin
window (20,5,50,20);
textbackground (2);
clrscr;
writeln ('PRETRAZI PO:');
writeln ('1) IMENU');
writeln ('2) PREZIMENU');
writeln ('3) ADRESI');
writeln ('4) BROJU FIKSNOG TEL.');
writeln ('5) BROJU MOBILNOG TEL.');
writeln ('6) BROJU UNOSA');
write ('>');
readln (o);
clrscr;
case o of
1: begin
write ('UNESI IME: ');
readln (podatak);
for j:=1 to i do
if mem[j].ime=podatak then
ispis(mem[j].broj);
end;
2: begin
write ('UNESI PREZIME: ');
readln (podatak);
for j:=1 to i do
if mem[j].prezime=podatak then
ispis(mem[j].broj);
end;
3: begin
write ('UNESI ADRESU: ');
readln (podatak);
for j:=1 to i do
if mem[j].adresa=podatak then
ispis(mem[j].broj);
end;
4: begin
write ('UNESI BR. FIKSNOG TELEFONA: ');
readln (podatak);
for j:=1 to i do
if mem[j].fiksni=podatak then
ispis(mem[j].broj);
end;
5: begin
write ('UNESI BR. MOB. TELEFONA: ');
readln (podatak);
for j:=1 to i do
if mem[j].mob=podatak then
ispis(mem[j].broj);
end;
6: begin
write ('REDNI BROJ UNOSA: ');
readln (br);
ispis(br);
end;
end;
end;
procedure meni;
begin
window (1,1,80,30);
textbackground (black);
clrscr;
textcolor (yellow);
write ('N');
gotoxy (15,1);
write ('P');
gotoxy (30,1);
write ('I');
gotoxy (45,1);
write ('Z');
textcolor (white);
gotoxy (2,1);
write ('ovi red');
gotoxy (16,1);
write ('retrazi');
gotoxy (31,1);
write ('spisi');
gotoxy (46,1);
write ('atvori');
gotoxy (65,25);
write ('Made by IVAN');
o:=readkey;
case o of
'n','N': unos;
'2': pretrazi;
'3': ispis(i);
end;
end;
begin
clrscr;
i:=1;
repeat
meni
until o='4';
end.
Ovo mi je samo kostur,jos cu dodavati neke opcije kad budem imao vremena.