Создание базы данных, База данных Опции

[Leshii10]

Помогите плиз. Задали несколько задач по алгоритмическим языкам и одно задание меня очень сильно смущает.
Создать базу данных избирательная комисия. Вводить фамилия, имя, отчество избирателя, Адрес и номер и серия паспорта. И выводить всех избирателей которые живут на заданной улице "'Энергетиков".
Теории нам препод ни какой не давал по базы данных. Я написал. Простую программу. Вот она.

:molitva:

Program Shabardin_Denis_gruppa_141_z_zadanie_12_variant_3;
uses crt;
var
p,p1,p2,p3,p4,p5,p6,s,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10:string;
t,i:integer;
spisok:array[1..4] of string;

begin
clrscr;
p:=' ';
for i:=1 to 4 do
begin
writeln('Введите Фамилию избирателя');
readln(p1);
writeln('Введите Имя избирателя');
readln(p2);
writeln('Введите Отчество избирателя');
readln(p3);
writeln('Введите Адрес избирателя (только улицу)');
readln(p4);
writeln('Введите серию паспорта');
readln(p5);
writeln('Введите номер паспорта');
readln(p6);
s:=p1+p+p2+p+p3+p+p4+p+p5+p+p6;
if p4='Энергетиков'then begin spisok[i]:=s; inc(t);
end;
clrscr;
end;

for i:=1 to t do
begin
writeln(spisok[i]);
end;
readkey;
end.

Но она не может являться базой данных. Что делать препода мне сейчас не найти. Лето. Уже. А скоро сдавать надо будет.

Теги CODE не просто так на форуме...

Сообщение отредактировано: volvo - 13.06.2005 0:43