IT 3 Sem.

Shadi

program spis;
uses crt;
type
dane=record
imie:string[20];
nazwisko:string[20];
telefon:string[10];
end;
var osoba:dane;
a:text;
rec:string;
begin
clrscr;
assign(a,'baza.txt');

rewrite(a);

repeat
writeln('Podaj swoje dane:');
write('Imi©: ');
readln(osoba.imie);
write('Nazwisko: ');
readln(osoba.nazwisko);
write('Nr. Telefonu: ');
readln(osoba.telefon);
writeln;
writeln;
writeln(a,'Podane dane: ');
writeln(a,'Imie: ', osoba.imie);
writeln(a,'Nazwisko: ', osoba.nazwisko);
writeln(a,'Telefon: ', osoba.telefon);
writeln('Wprowadzic nowy rekord? [t/n]');
readln(rec);
until rec='n';

readln;
close(a);
end.

Gość · Wysłany: Wto 15:17, 06 Mar 2007 Temat postu:

program spis;
uses crt;

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

var osoba:dane;
a:text;
rec,pyt,wiersz:string;

begin
clrscr;
assign(a,'baza.txt');

rewrite(a);

repeat
writeln('Podaj swoje dane:');
write('Imi©: ');
readln(osoba.imie);
write('Nazwisko: ');
readln(osoba.nazwisko);
write('Nr. Telefonu: ');
readln(osoba.telefon);
writeln;
writeln;
writeln(a,'Podane dane: ');
writeln(a,'Imie: ', osoba.imie);
writeln(a,'Nazwisko: ', osoba.nazwisko);
writeln(a,'Telefon: ', osoba.telefon);
writeln('Wprowadzic nowy rekord? [t/n]');
readln(rec);
until rec='n';
close(a);
writeln('wyswietlic baze? [t/n]');
readln(pyt);
if pyt='t' then

begin
assign(a,'baza.txt');
reset(a);

while not eof(a) do
begin
readln(a,wiersz);
writeln(wiersz);
end;
end;
readln;
close(a);
end.