В файле содержится сведения о жителях в следующем виде: фамилия, город, улица, дом, квартира. Написать программу, которая печатает: фамилии двух любых людей, живущих в разных городах по одинаковому адресу. Посмотрите этот код. Я его набросал, а как продолжить?... ну, если таким боком можно выполнить задание... не разобрался я еще с файлами, блин!
Code
Program Files;
type
person=record
Fam:string[15];
Gor:string[20];
Ul:string[25];
Dom:integer;
Kv:integer;
end;
var
list:file of person;
f,g,u:string;
d,k,i,kol:integer;
rec:person;
begin
writeln('Vvedite colichestvo giteley');
readln(kol);
assign(list,'Giteli');
rewrite(list);
for i:=1 to kol do
begin
writeln('Vvedite dannie',i,'-go gitela');
writeln('Familiya:'); readln(f);
writeln('Gorod:'); readln(g);
writeln('Uliza:'); readln(u);
writeln('Dom:'); readln(d);
writeln('Kvartira:'); readln(k);
rec.fam:=f; rec.gor:=g; rec.ul:=u; rec.dom:=d; rec.kv:=k;
write(list,rec);
writeln(rec.fam:5,rec.gor:5,rec.ul:5,rec.dom:2,rec.kv:2);
end;
close(list);
writeln;
reset(list);
for i to kol-1 do
begin
seek(list,i);
read(list,i);
Не оставляйте утопающего студента)))
