IT 3 Sem.

Shadi to ja · Gość

program bazy;
uses crt;

type
dane=record
imie:string[20];
nazwisko:string[20];
telefon:string[10];
end;

var
wyb:char;
osoba:dane;
a:text;
rec,pyt,wiersz,b,c,d:string;

begin
clrscr;

writeln('Co chcesz zrobic? (podaj numer)');
writeln('1: Utworz nowa baze danych');
writeln('2: Dodaj wpis do istniejacej bazy danych');
writeln('3: Odczytac baze danych');
writeln('4: Znajdz dany rekord');
writeln('5: Zakonczyc program');
readln(wyb);

case wyb of
'1': begin
clrscr;
assign(a,'bazapro.txt');
rewrite(a);
repeat
writeln('Podaj dane:');
write('imie: ');
readln(osoba.imie);
write('nazwisko: ');
readln(osoba.nazwisko);
write('telefon: ');
readln(osoba.telefon);

writeln(a,'imie: ',osoba.imie);
writeln(a,'nazwisko: ',osoba.nazwisko);
writeln(a,'telefon: ',osoba.telefon);

writeln('dodac nowy rekord? [t/n]');
readln(rec);
until rec='n';

readln;
close(a);
end;

'2': begin
clrscr;
assign(a,'bazapro.txt');
append(a);
write('imie: ');
readln(osoba.imie);
write('nazwisko: ');
readln(osoba.nazwisko);
write('telefon: ');
readln(osoba.telefon);
writeln(a,'imie: ',osoba.imie);
writeln(a,'nazwisko: ',osoba.nazwisko);
writeln(a,'telefon: ',osoba.telefon);
reset(a);
readln;
close(a);
end;

'3': begin
clrscr;
assign(a,'bazapro.txt');
reset(a);
while not eof(a) do
begin
readln(a,wiersz);
writeln(wiersz);
end;
readln;
close(a);
end;

'4': begin
clrscr;
assign(a,'bazapro.txt');
reset(a);
writeln('nazwisko?: ');
readln(c);
while not eof(a) do
begin
readln(a,c);
end;
writeln(a,c);
end;

'5': begin
readln;
end;
end;
readln;
end.

Gość · Wysłany: Wto 15:10, 20 Mar 2007 Temat postu:

WERSJA DZIALAJACA v.1.1a (c) Shadi

program bazy;
uses crt;

type
dane=record
imie:string[20];
nazwisko:string[20];
telefon:string[10];
end;

var
wyb:char;
osoba:dane;
a:text;
rec,pyt,wiersz,b,c,d:string;

begin
clrscr;

writeln('Co chcesz zrobic? (podaj numer)');
writeln('1: Utworz nowa baze danych');
writeln('2: Dodaj wpis do istniejacej bazy danych');
writeln('3: Odczytac baze danych');
writeln('4: Znajdz dany rekord');
writeln('5: Zakonczyc program');
readln(wyb);

case wyb of
'1': begin
clrscr;
assign(a,'bazapro.txt');
rewrite(a);
repeat
writeln('Podaj dane:');
write('imie: ');
readln(osoba.imie);
write('nazwisko: ');
readln(osoba.nazwisko);
write('telefon: ');
readln(osoba.telefon);

writeln(a,osoba.imie);
writeln(a,osoba.nazwisko);
writeln(a,osoba.telefon);

writeln('dodac nowy rekord? [t/n]');
readln(rec);
until rec='n';

readln;
close(a);
end;

'2': begin
clrscr;
assign(a,'bazapro.txt');
append(a);
write('imie: ');
readln(osoba.imie);
write('nazwisko: ');
readln(osoba.nazwisko);
write('telefon: ');
readln(osoba.telefon);
writeln(a,osoba.imie);
writeln(a,osoba.nazwisko);
writeln(a,osoba.telefon);
reset(a);
readln;
close(a);
end;

'3': begin
clrscr;
assign(a,'bazapro.txt');
reset(a);
while not eof(a) do
begin
readln(a,wiersz);
writeln(wiersz);
end;
readln;
close(a);
end;

'4': begin
clrscr;
assign(a,'bazapro.txt');
reset(a);
writeln('nazwisko?: ');
readln(c);
writeln;
writeln;
while not eof(a) do
begin

readln(a,osoba.imie);

readln(a,osoba.nazwisko);

readln(a,osoba.telefon);

if osoba.nazwisko=c then
begin
writeln(osoba.imie);
writeln(osoba.nazwisko);
writeln(osoba.telefon);
end;
writeln;
end;

end;

'5': begin
readln;
end;
end;
readln;
end.