задачи по файлам, помогите найти ошибку! Опции

[PaPoV]

задача: создать файл, содержащий сведения о сдаче студентами сессии и организовать поиск по ФИО.

Вот прога:

program q;
type ekz=record
               gr:string;
               fio:string;
               ex:array[1..5] of integer end;
var spf:file of  ekz;
    spr:ekz;
   rej,i:integer; f:string;  c:char;
procedure sozd;
    begin
         rewrite(spf);
         with spr do begin
         writeln('введите группу');
         readln(gr);
         writeln('введите ФИО');
         readln(fio);
         writeln('введите 5 оценок по экзаменам');
         for i:=1 to 5 do begin write(i,'-ая оценка');
         readln(ex[i]) end;
         write(spf,spr);
         writeln('продолжить ввод? y/n');
         read©;
         if (c='n') or (c='N') then exit; end;
    end;
procedure obr;
    begin
         reset(spf);
         writeln('введите ФИО для поиска');
         readln(f);
         with spr do while not Eof(spf) do begin
         read(spf,spr);
         if f=fio then begin writeln('ФИО:',fio:30,'группа:',gr:7);
         writeln('оценки:');
         for i:=1 to 5 do write(ex[i]:4,',') end;
         close(spf)
    end;
begin
     assign(spf,'D:\spis.txt');
     while true do
     begin
     writeln('меню:');
     writeln('1: создание списка;');
     writeln('2: поиск по ФИО студента;');
     writeln('3: выход');
     readln(rej);
     case rej of
       1: sozd;
       2: obr;
       3: halt;
       else writeln('ошибка!!! повторите ввод'); end;  end;
       end.

требует ; после последнего end перед точкой.

Сообщение отредактировано: PaPoV - 12.05.2012 21:58

[Федосеев Павел]

Ну, желательно соблюдать отступы - будет легче.
Но если уже такой код, то для форматирования воспользуйся штатной к FreePascal утилитой ptop (её обсуждение "http://forum.pascalnet.ru/index.php?showtopic=24653").

Program q;

Type ekz = Record
  gr: string;
  fio: string;
  ex: array[1..5] Of integer
End;

Var spf: file Of  ekz;
  spr: ekz;
  rej,i: integer;
  f: string;
  c: char;
Procedure sozd;
Begin
  rewrite(spf);
  With spr Do
    Begin
      writeln('введите группу');
      readln(gr);
      writeln('введите ФИО');
      readln(fio);
      writeln('введите 5 оценок по экзаменам');
      For i:=1 To 5 Do
        Begin
          write(i,'-ая оценка');
          readln(ex[i])
        End;
      write(spf,spr);
      writeln('продолжить ввод? y/n');
      read©;
      If (c='n') Or (c='N') Then exit;
    End;
End;
Procedure obr;
Begin
  reset(spf);
  writeln('введите фио для поиска');
  readln(f);
  With spr Do
    While Not Eof(spf) Do
      Begin
        read(spf,spr);
        If f=fio Then
          Begin
            writeln('ФИО:',fio:30,'группа:',gr:7);
            writeln('оценки:');
            For i:=1 To 5 Do
              write(ex[i]:4,',')
          End;
        close(spf)
      End;
  Begin
    assign(spf,'D:\spis.txt');
    While true Do
      Begin
        writeln('меню:');
        writeln('1: создание списка;');
        writeln('2: поиск по фамилии');
        writeln('3: выход');
        readln(rej);
        Case rej Of 
          1: sozd;
          2: obr;
          3: halt;
          Else writeln('ошибка!!! повторите ввод');
        End;
      End;
  End.

Здесь лучше видно отсутствие end в процедуре obr.

Сообщение отредактировано: Федосеев Павел - 12.05.2012 21:44