Baza danych osobowych w języku

Turbo Paskal

Program baza;

Uses CRT; {biblioteka crt}

Var {zmienne}

Imie, nazwisko, telefon: string;

c, c2: char;

PROCEDURE Wprowadz;

Begin

ClrScr; {czysc ekran}

Write ('Imie :'); {pisz}

Readln (imie) ; {czytaj i idz do nastepnej linii}

Write ('Nazwisko :');

Readln (nazwisko) ;

Write ('Telefon :');

Readln (telefon);

End; {koniec}

PROCEDURE Wyswietl;

Begin

ClrScr;

Writeln ('Imie : ', imie);

Writeln ('Nazwisko : ', nazwisko);

Writeln ('Telefon : ', telefon);

Writeln ;

Write ('Wcisnij jakis klawisz...');

c2 :=readkey;

End;

Begin

Repeat {powtarzaj}

ClrScr ;

Write ('1. Nowy wpis 2. Wyswietlanie wpisu 3. Koniec programu :');

Repeat

c:=readkey ;

Until (c= '1') OR (c= '2') OR (c= '3'); {duplikuj}

If c= '1' Then Wprowadz ; {jesli zostanie spelniony warunek to nastepuje kontynuacja}

If c= '2' Then Wyswietl;

Until c= '3' ;

End.