Pascal - Procedury i funkcje

Baza danych

Baza danych
Pascal - Procedury i funkcje

Program: przedstawiający mini bazę danych do której można wprowadzać imiona i nazwiska.

Program także wyświetla wszystkie wprowadzone dane, dopiero po wcześniejszym potwierdzeniu przez użytkownika wprowadzenia.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program bazadanych;
uses crt;
var 
	i,j:integer;
	imie:string;
	nazwisko:string;
	odp:char;
	tab:array[1..8,1..2] of string;
procedure wypelnij;
begin
	clrscr;
	tab[6,1]:='Aleksander'; tab[6,2]:='Wielki';
	tab[7,1]:='Maria'; tab[7,2]:='Curie';
	tab[8,1]:='Jan'; tab[8,2]:='Matejko';
end;
begin
	wypelnij;
	writeln('Program wczytuje imiona i nazwiska');
	for i:=1 to 5 do
	begin
		write('Podaj imie ' ,i, ' osoby: '); readln(tab[i,1]);
		write('Podaj nazwisko ' ,i, ' osoby: ');readln(tab[i,2]);
	end;
	repeat
	Write('Podaj imie do wyszukania ');readln(imie);
	for i:=1 to 8 do
	if imie  =tab[i,1] then writeln('jest imie: ', imie);
	Write('Podaj nazwisko do wyszukania ');readln(nazwisko);
	for i:=2 to 8 do
	if nazwisko  =tab[i,2] then writeln('jest nazwisko: ', nazwisko);
	write('jeszcze raz? (t/n) ');
	readln(odp);
	until odp='n';
	writeln('imie              Nazwisko');
	for i:=1 to 8 do
	begin
		for j:=1 to 2 do write(tab[i,j]:18);
		writeln;
	end;
	readln;
end.