Программа "Эл. Сваха" на Pascal

[Айдар]

Добрый день прошу помочь сделать программу для поиска женихов и невест (по определенному заданному критерию у меня это возраст кандидата). Имеется 2 списка : женихи и невесты. В каждом списке жен и нев характеризуется записью вида

type
zap=record
nom:integer;(порядковый номер кандидата)
mydata: record
vz,rst,vs:integer; (возраст, рост, вес)
end;

Значит мне надо создать базу данных этих кандидатов
и допустим вывести всех женихов возраста 20 лет.
Замечание модератора: Используйте тег [CODE]

[ОДИНОЧЕСТВО В СЕТИ]

а в чем траблы то?

[Stilet]

Значит мне надо создать базу данных этих кандидатов
и допустим вывести всех женихов возраста 20 лет.

Логично, тогда по хорошему сделай классы, работающие с этими данными.

[russian-stalker]

Ну вот пример как работать(хоть и кривой пример)

program Project2;

type
TPeople=record
pol,name:string;
num,vz,rst,vs:integer;
end;

var
bd:array[1..100] of TPeople;
m,m2,j,j3,j2:Tpeople;
i:integer;
begin
m.pol:='mujskoy';
m.name:='name1';
m.vz:=20;
m.num:=1;
m.rst:=100;
m.vs:=400;
m2.pol:='mujskoy';
m2.name:='name2';
m2.vz:=20;
m2.num:=2;
m2.rst:=100;
m2.vs:=400;
j.pol:='jenskiy';
j.num:=3;
j3.pol:='jenskiy';
j2.pol:='jenskiy';
bd[1]:=m;
bd[2]:=m2;
bd[3]:=j;
bd[4]:=j3;
bd[5]:=j2;
for i:=1 to 100 do
if (bd[i].pol='mujskoy') and (bd[i].vz=20) then
begin
writeln(bd[i].num);
writeln(bd[i].name);
writeln(bd[i].pol);
writeln(bd[i].vz);
writeln(bd[i].rst);
writeln(bd[i].vs);
end;
readln;
end.

[Айдар]

Да, я смотрел, а нельзя сделать так чтобы пользователь сам вводил (возраст вес рост пол), имя не надо.
Может попробовать сделать цикл всего 10 кандидатов?

Помогите кто-нибудь, уже башка кипит.

[russian-stalker]

program Project2;
type
TPeople=record
pol,name:string;
num,vz,rst,vs:integer;
end;

var
bd:array[1..10] of TPeople;
i:integer;
begin
for i:=1 to 10 do
begin
bd[i].num:=i;
write('Vvedite imya: ');
readln(bd[i].name);
write('Vvedite pol: ');
readln(bd[i].pol);
write('Vvedite vozrast: ');
readln(bd[i].vz);
write('Vvedite rost: ');
readln(bd[i].rst);
write('Vvedite ves: ');
readln(bd[i].vs);
writeln;
end;
for i:=1 to 10 do
if (bd[i].pol='mujskoy') and (bd[i].vz=20) then
begin
writeln(bd[i].num);
writeln(bd[i].name);
writeln(bd[i].pol);
writeln(bd[i].vz);
writeln(bd[i].rst);
writeln(bd[i].vs);
writeln;
end;
readln;
end.

[Айдар]

Блин russian-stalker, большой тебе респект.