Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Обработка файлов
В файле содержится сведения о жителях в следующем виде: фамилия, город, улица, дом, квартира. Написать программу, которая печатает: фамилии двух любых людей, живущих в разных городах по одинаковому адресу.

Посмотрите этот код. Я его набросал, а как продолжить?... ну, если таким боком можно выполнить задание... не разобрался я еще с файлами, блин!

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);

Не оставляйте утопающего студента)))

1 | Автор: vladislaff | 2009-01-19, 18:50   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: