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

[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

[klem4]

Если очень грубо, то это выглядит так :

uses crt;
type
   TRec = record
       fName:string[31];
       secName:string[31];
       thName:string[31];
       adres:string;
       PSerial:string[20];
       PNumb:string[20];
   end;

var
   i,n:integer;
   BD:array[1..100] of TRec;

Begin
   clrscr;
   write('Кол-во изберателей = '); readln(n);
   for i:=1 to n do
    with BD[i] do begin
       writeln;
       write('Имя : '); readln(fName);
       write('Фамилия : '); readln(secName);
       write('Отчество : '); readln(thName);
       write('Адрес : '); readln(adres);
       write('Серия паспорта : '); readln(PSerial);
       write('Номер паспорта : '); readln(PNumb);
       writeln;
    end;

   writeln;

   for i:=1 to n do
    with BD[i] do
     if adres='ул. Энергетиков' then begin
        writeln('Имя : ',fname);
        writeln('Фамилия : ',secName);
        writeln('Отчество : ',thName);
        writeln('Адрес : ',adres);
        writeln('Серия паспорта : ',Pserial);
        writeln('Номер паспорта : ',PNumb);
        writeln;
     end;

    readln;

end.

А вообще, пользуйся поиском по форуму, очень много таких задач решены, ищи слова записи и record

[Leshii10]

Спасибо осталось немного только доработать и сделать немного по своему. Принцип понял.