Pascal - Konsolowe

Baza danych z rekordami

Baza danych z rekordami
Pascal - Konsolowe

Program: wprowadzający dane wielu osób a następnie porównujący wiek dwóch pierwszych.

Użytkownik podaje ilość osób, oraz wszelkie dane.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program baza;
uses crt;
const n=7;
type personalia=record
       imie:string[15];
       nazw:string[15];
       wiek:byte;
       mias:string[20];
       end;
       var o1:array[1..n] of personalia;
       i,ile:integer;
       begin clrscr;
       write('Ile osob wprowadzasz? ');readln(ile) ;
       for i:=1 to ile do
       with o1[i] do
       begin
       writeln('Podaj imie osoby ' ,i, ': ');
       readln(imie);
       writeln('Podaj nazwisko osoby ' ,i, ': ');
       readln(nazw);
       writeln('Podaj wiek osoby ' ,i, ': ');
       readln(wiek);
       writeln('Podaj miasto osoby 1: ');
       readln(mias);
       if(o1[1].wiek<o1[2].wiek)then begin
                               writeln;
                               writeln('Starsza jest osoba 2');end
       else writeln('Starsza jest osoba 1');
       readkey;
       end;
end.