создать типизированный файл, в который записать Фамилию, имя, возраст, средний бал, телефон учащегося.

[Alerq]

Задача: создать типизированный файл, в который записать Фамилию, имя, возраст, средний бал, телефон учащегося. Вот, что у меня получилось, но выдает ошибку "Ожидался конец файла". Найдите ошибку. Спасибо.

Program pro;
uses crt;
type anketa=record
    fam:string[20];
    im:string[12];
    voz: 1..18;
    at: real;
    tel: integer;
 end;
 var i,n:integer;
     student: anketa;
     f:file of anketa;
 begin
 clrscr;
 assign(f,'C:\PABCWork.NET\St.dat');
 reset(f);
 Write('Введите количество новых учащихся');
 Readln(n);
 For i:=1 to n do 
 Write('Введите Фамилию учащегося:');
 Readln(student.fam);
 Write(f,student.fam,'  ');
 Write('Введите Имя учащегося:');
 Readln(student.im);
 Write(f,student.im,'  ');
 Write('Введите Возраст учащегося:');
 Readln(student.voz);
 Write(f,student.voz,'  ');
 Write('Введите Средний бал аттестата учащегося:');
 Readln(student.at);
 Write(f,student.at,'  ');
 Write('Введите Телефон учащегося:');
 Readln(student.tel);
 Writeln(f,student.tel);
 end;
 close(f);
 readkey;
 end.

________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.


2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[Hacker19_90]

reset(f);

Reset - это для чтения с файла, а не для записи в него
используйте rewrite

[Alerq]

Не помогло.
Rewrite, как нам объяняли, перезаписывает файл. Всмысле стирает и открывает для работы. Тоесть если я 1 раз впишу в файл данные 5 учеников, а потом запущу прогу 2й раз чтобы еще 3х добавить, то первые 5 сотрутся, как я понимаю...

[Hacker19_90]

тогда Append юзайте!

[Serge_Bliznykov]

Alerq, у Вас было ОЧЕНЬ много принципиальных ошибок.

похоже, что Вы не понимаете, что такое типизированный файл и как с ним работать.

предлагаю ещё раз изучить теорию (лекции + книжки).

а ещё можете разобрать пример решения вашей задачи:

program pro;
uses crt;

const DataFileName = 'C:\PABCWork.NET\St.dat';

type anketa = record
    fam: string[20];
    im: string[12];
    voz: 1..18;
    at: real;
    tel: integer;
  end;
var i, n: integer;
  student: anketa;
  f: file of anketa;
begin
  clrscr;
  assign(f, DataFileName );
  if not FileExists( DataFileName ) 
    then Rewrite(f)
    else begin reset(f); seek(f, FileSize(f)) end;
  Write('Введите количество добавляемых записей об учащихся: (или число < 0 - чтобы просто распечатать файл) : ');
  Readln(n);
  if n>0 then 
  for i := 1 to n do begin
    Write('Введите Фамилию учащегося:');
    Readln(student.fam);
    Write('Введите Имя учащегося:');
    Readln(student.im);
    Write('Введите Возраст учащегося:');
    Readln(student.voz);
    Write('Введите Средний бал аттестата учащегося:');
    Readln(student.at);
    Write('Введите Телефон учащегося:');
    Readln(student.tel);
    Write(f, student);
  end
  else begin
     seek(f,0);
     {вывести на экран содержимое файла}
     WriteLn('----------------------------------------------------------------------------');
     WriteLn('| NN  |    Фамилия         |   Имя      |   Возраст  | Средн.бал | Телефон |');
     WriteLn('----------------------------------------------------------------------------');
     for i:=1 to FileSize(f) do begin
        Read(f, student );
        with student do
          WriteLn('|',i:4,' |', fam:20,'|',im:12,'|', voz:11, ' | ', at:9:2, ' | ', tel:8, '|'  );
     end;
     WriteLn('----------------------------------------------------------------------------');
  end;
  
  close(f);
  WriteLn('Нажмите любую клавишу для завершения программы...');
  readkey;
end.

p.s. в связи с тем, что вы, по всей видимости, выполняете работу в PascalABC.NET я позволил себе использовать в программе имеющуюся там функцию FileExists(), для TurboPascal это кусок кода нужно чуть-чуть изменить...