Записная книжка

[Babur4iK]

"Записная книжка-2". Дан список друзей: фамилии, имена, адреса (город, улица, дом, квартира). Требуется:
а) найти фамилию человека по заданному адресу;
б) найти адрес по введенной фамилии;
в) найти фамилии тех, кто живет в разных городах, но имеет одинаковый адрес.


вот код есть,но не понимаю,не так как надо работает все,помогите чем можете,не понимаю,ввод должен быть с клавы или нет??





program primer2 ;
type anketa=record
surname: string[10];
name: string[10];
dat_r: string[8];
adress: string[50];

end;
var friends: array [1..100] of anketa;
I, n: integer;




begin



{последовательно вводим каждую запись}
for I:=1 to 2 do


with friends[I] do
begin

writeln ('введите фамилию');
readln (surname);
// writeln ('введите Имя');
// readln (name);
// writeln ('введите дату рождения');
// readln (dat_r);
writeln ('введите адрес');
readln(adress);


end;

with friends[I] do
begin

for I:=1 to 2 do
if (adress='city1') or (adress='city2') then
writeln(' фамилия : ', surname);
if (surname='1') or (surname='2') then writeln(' adrres : ',adress);


end;
end.

я знаю ,Что моя затея не правильная,но никак додуматься не могу как это сделать,подскажите пожалуйста!!!

достаточно условие какое подсказать и все!!!

[Hacker19_90]

А что вас собственно напрягает!!!
Задумка у вас правильная!!! Так что делайте и выкладывайте код, если возникнуть какие-нибудь ошибки.

[Babur4iK]

program primer2 ;
type anketa=record
surname: string[10];
name: string[10];
dat_r: string[8];
gorod: string[50];
street: string[50];
home: string[50];



end;
var friends: array [1..100] of anketa;
I, n: integer;




begin






{последовательно вводим каждую запись}
for I:=1 to 2 do


with friends[I] do
begin

writeln ('введите фамилию');
readln (surname);
// writeln ('введите Имя');
// readln (name);
// writeln ('введите дату рождения');
// readln (dat_r);
writeln ('введите адреса:');
writeln ('введите город:');
readln(gorod);
writeln ('введите улицу:');
readln(street);

writeln ('введите дом и квартиру:');
readln(home);




end;

with friends[I] do
begin

for I:=1 to 2 do begin
if (street='пр.текстильщиков') or (street='пролетарская') or (home='5Б,38') or (home='1,68') or (gorod='Иваново') then
writeln(' Фамилия по заданному запросу и те люди которые живут в разных городах,но с одинаковым адресом : ', surname) ;

if (surname='Фамилия 1') or (surname='Фамилия 2') then writeln(' фамилия : ', surname,' Город : ',gorod,' ','улица :',' ',street,' ','Дом :',' ',home); end;


end;
end.

А как допустим сделать,чтоб из трех вариантов:"Записная книжка-2". Дан список друзей: фамилии, имена, адреса (город, улица, дом, квартира). Требуется:
а) найти фамилию человека по заданному адресу;
б) найти адрес по введенной фамилии;
в) найти фамилии тех, кто живет в разных городах, но имеет одинаковый адрес.

выбирался один??

ну допустим хочу только вывести найти фамилию человека по заданному адресу

[Hacker19_90]

Что значит как??

Просмативай массив, ищи соответствия и выводи чё хошь!

[Babur4iK]

Сообщение от Hacker19_90

Что значит как??

Просмативай массив, ищи соответствия и выводи чё хошь!

Спасибо,ты меня не понял просто!!!))

спасибо!!

вроде сделал я)))