program uczn.pdf

program uczn;

type

czlowiek = record

imie: string[20];

nazwisko: string[30];

data_urodzenia:string[10];

klasa:string[10];

end;

var

uczniowie : array[1..1000] of czlowiek;

begin

writeln('Podaj imię:');

readln(uczniowie[1].imie);

writeln('Podaj nazwisko:');

readln(uczniowie[1].nazwisko);

writeln('Podaj datę urodzenia:');

readln(uczniowie[1].data_urodzenia);

writeln('Podaj klasę:');

readln(uczniowie[1].klasa);

{a teraz możemy skorzystać ze skojarzenia, by wypisać pola danego rekordu }

with uczniowie[1] do begin

writeln('wypisanie danych');

writeln(imie);

writeln(nazwisko);

writeln(klasa);

end;

{tak jakbyśmy korzystali ze zwykłych zmiennych}readln;

end.