Помощь - Поиск - Пользователи - Календарь
Полная версия: Создание базы данных
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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 не просто так на форуме...
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
Спасибо осталось немного только доработать и сделать немного по своему. Принцип понял.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.