Написать программу, которая создает файл записей со следующей информацией о жителях некоторого города

@Евдокия · Регистрация: 24.10.2013

Author24 — интернет-сервис помощи студентам

Написать программу, которая создает файл записей со следующей информацией о жителях некоторого города:ФИО, адрес, телефон. Вывести содержимое файла на экран для контроля.
Программа создания файла у меня получилась. А вот программа вывода содержимого не работает(выдает ошибку при вводе имя файла). Что нужно изменить?

Pascal

Uses CRT;
Type Townsman = record
surname: string [10]; 
name: string [6]; 
father: string [12]; 
address: string [20]; 
tel: string [7]; 
end;
Var F:file of Townsman; 
Man: Townsman; 
n: byte; {Кол-во жителей}
i: byte; {счетчик}
Begin
Clrscr;
Write(‘введите кол-во жителей:’);
Readln(n);
Assign (F,’ Townsman.dat’);
Rewrite(F);
For i:=1 to n do
Begin
Write(‘фамилия:’); Readln(Man.surname);
Write(‘имя:’); Readln(Man.name);
Write(‘отчество:’); Readln(Man.father);
Write(‘Адрес:’); Readln(Man.address);
Write(‘Телефон:’); Readln(Man.tel);
Write(F,Man);
End;
Close(F);
end.

Pascal

Uses Crt;
Var f: file of integer;
Name: string;
Begin
CrtScr;
{$I-}
write(‘Введите полное имя файла’); Readln (Name);
Assign (f, Name);
Reset (f);
{$I+}
if IOResult <> 0 then writeln(‘ошибка открытия файла’)
Close (f); 
End.

@bormant · 16.03.2014, 22:47

Pascal

1	Assign (F,’ Townsman.dat’);

пробел уберите.

Pascal

1	Var f: file of integer;

А в первой программе там несколько иное.
Надеюсь код вывода содержимого тоже есть, просто не показан?

Pascal

1
2
3

while not eof(f) do begin
  Read(f,man); WriteLn(...);
end;

@Евдокия · 17.03.2014, 15:35 **[ТС]**

Получится что-то типа такого?

Pascal

Uses CRT;
Type Townsman = record
surname: string [10]; 
name: string [6]; 
father: string [12]; 
address: string [20]; 
tel: string [7]; 
end;
Var F:file of Townsman; 
Man: Townsman; 
n: byte; {Кол-во жителей}
i: byte; {счетчик}
Begin
Clrscr;
Write(‘введите кол-во жителей:’);
Readln(n);
Assign (F,’ Townsman.dat’);
Rewrite(F);
For i:=1 to n do
Begin
Write(‘фамилия:’); Readln(Man.surname);
Write(‘имя:’); Readln(Man.name);
Write(‘отчество:’); Readln(Man.father);
Write(‘Адрес:’); Readln(Man.address);
Write(‘Телефон:’); Readln(Man.tel);
Write(F,Man);
End;
while not eof(f) do begin
  Read(f,man); WriteLn(f,man); 
end;
Close(F);
end.

@bormant · 17.03.2014, 21:20

У вас после 27 строки указатель текущей записи стоит в конце файла. Чтобы вывести содержимое, указатель нужно вернуть в начало файла: Seek(f,0); { первая запись имеет смещение 0 }
Write/WriteLn не умеют выводить переменные типа Townsman, придётся расписать по полям:

Pascal

Seek(f,0);
while not eof(f) do with man do begin
  Read(f,man);
  Write(' Фамилия: ',surname);
  Write('     Имя: ',name);
  Write('Отчество: ',father);
  Write('   Адрес: ',address);
  Write(' Телефон: ',tel);
  WriteLn;
end;
Close(f);

PS. У вас кавычки неправильные, нужны обычные апострофы, те, что на букве "э".

	17.03.2014, 21:20

Опции темы

Написать программу, которая создает файл записей со следующей информацией о жителях некоторого города

Решение