Типизированные файлы запись\ чтение\ меню

[Naposaram]

Всем привет. Ну народ помогите. Решил пока на каждый пункт меню сделать отдельную программу а потом соеденить все вместе... так вот с низу код когда ввожу данные по первому студенту программа заканчивает работать и ниче не записывает в чем ошибка?

п.с. пользуюсь free pascal т.к. винда 7 х 64.

program zapis;
type rez = record
        fio: string [20];
        him: integer;
        mat: integer;
        inf: integer;
end;
var rezult: rez;
    k,x: longint;
    n: longint;
    fp: file of rez;
begin
 {$I-} {$R-}
    assign (fp, 'D:\rez.dat');
    writeln ('введите количество студентов');
    readln (x);
     n:=0;
     for k:= 1 to x do begin
      writeln ('введите данные студента*');
      writeln ('фамилия:'); readln (rezult.fio);
      writeln (введите оценки по предметам по пяти бальной шкале');
      writeln ('химия:'); readln (rezult.him);
      writeln ('математика:'); readln (rezult.mat);
      writeln ('информатика:'); readln (rezult.inf);
     seek (fp,n);
     write (fp,rezult);
     n:=n+1;
     end;
    close (fp);
readln;
end.

Условие:

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

Сама задача:

Составить программу для обработки списка студенческой группы, в котором записаны фамилия студента, результаты экзаменов по химии, математике и информатике. Определить списки студентов, кто не будет получать стипендию (у кого есть тройки), кто будет получать обычную стипендию (менее 50% отличных оценок) и повышенную стипендию (более 50% отличных оценок).

[Hacker19_90]

Во первых надо использовать Rewrite
Во-вторых перемещать курсор по фалу при записи не надо! Он сам передвигается!

[O m n i s]

Ого! Николай проснулся

[Naposaram]

Сообщение от Hacker19_90

Во первых надо использовать Rewrite

это заместо write (fp,rezult); ?

но все равно после первого введеного программа закрыватеся

[Hacker19_90]

Нет! Это в дополнение!
Это значит что файл для записи откроем!

[Naposaram]

Сообщение от Hacker19_90

Нет! Это в дополнение!
Это значит что файл для записи откроем!

все понял надо после этого прописать

 assign (fp, 'D:\rez.dat');
rewrite (fp);

ну пока работает че то пишет =)

[Serge_Bliznykov]

во-первых, соглашусь с Hacker19_90 - скорее всего файл 'D:\rez.dat' не существует.
Поэтому его надо создать (перезаписать).

а во-вторых, лучше не отключать обработку ошибок (убрать из программы директивы {$I-} и {$R-} ) особенно. если не понимаешь, что эти директивы делают!


примерно так ваша программа может выглядеть

program zapis;
type rez = record
        fio: string [20];
        him: integer;
        mat: integer;
        inf: integer;
end;
var rezult: rez;
    i,x: longint;
    fp: file of rez;
begin
    assign (fp, 'D:\rez.dat');
    rewrite(fp);
    writeln ('введите количество студентов');
    readln (x);
    for i:= 1 to x do begin
      writeln ('введите данные ',i,'-го студента *');
      writeln ('фамилия:'); readln (rezult.fio);
      writeln (введите оценки по предметам по пяти бальной шкале');
      writeln ('химия:'); readln (rezult.him);
      writeln ('математика:'); readln (rezult.mat);
      writeln ('информатика:'); readln (rezult.inf);
      write (fp,rezult);
     end;
    close (fp);
  WriteLn('Файл успешно создан.');
  readln;
end.

[Hacker19_90]

БИНГО! Молодец! +1 к навыку научного тыка! хехе
Seek убрали?

[Hacker19_90]

а во-вторых, лучше не отключать обработку ошибок (убрать из программы директивы {$I-} и {$R-} )

рискну показать как это можно использовать

Assign(f, namefile);
{$I-}
Reset(f)
if IOResult <> 0 then
begin
    Writeln ('Файла нельзя открыть для чтения или его просто нет');
    Rewrite (f);
end
else 
begin
    Writeln ('Такой файл есть значит будем дополнять');
    Append(f);
end;
{$I+}

[Naposaram]

Сообщение от Serge_Bliznykov

примерно так ваша программа может выглядеть

program zapis;
type rez = record
        fio: string [20];
        him: integer;
        mat: integer;
        inf: integer;
end;
var rezult: rez;
    i,x: longint;
    fp: file of rez;
begin
    assign (fp, 'D:\rez.dat');
    rewrite(fp);
    writeln ('введите количество студентов');
    readln (x);
    for i:= 1 to x do begin
      writeln ('введите данные ',i,'-го студента *');
      writeln ('фамилия:'); readln (rezult.fio);
      writeln (введите оценки по предметам по пяти бальной шкале');
      writeln ('химия:'); readln (rezult.him);
      writeln ('математика:'); readln (rezult.mat);
      writeln ('информатика:'); readln (rezult.inf);
      write (fp,rezult);
     end;
    close (fp);
  WriteLn('Файл успешно создан.');
  readln;
end.

пробовал так, начинает ругаться на

 write (fp,rezult);

пишет "Incompatible type for arg no. 2: Got "rez", expected" что то ему не нравится в типе