Хмммм если честно, попробовала сделать эту программу.. Только или запуталась где-то или что-то вообще неверно делаю... Просто не компилирует.

Программа тест.. Сначала делается файл с вопросами в виде-вопросб количество вариантов ответа, сами варианты ответов и номер правильного.
А результат записывается так- номер вопроса, имя и фамилия, выбранный номер ответа, правильный ответ.

Нажмите для просмотра прикрепленного файла
Может кто-нибудь в этом разбирается...

как ты думаешь, сколько ошибок вот в этом фагменте?

      readln(f1,q.vopr);
      writeln(q.vopr);
      readln(f1,j_sk,prav);
      for i:=1 to j_sk do
      begin
        readln(f1,q.vopr);
        writeln(i,'. ',q.vopr);
      end;

Надо

      begin
        readln(f1,q.otv);
        writeln(i,'. ',q.otv);
      end;

да?

Не совсем... Файл F1 определен, как File of Test - соотвественно, типизированный... А к типизированным файлам процедура ReadLn неприменима, только Read... Во-вторых, читать надо в переменную типа Test, то есть всю запись сразу, а не кусками, иначе опять же компилятор не пропустит...

Эммм

read(f1,q.vopr);
      writeln(q.vopr);
      read(f1,j_sk,prav);
      for i:=1 to j_sk do
      begin
        read(f1,q.vopr);
        writeln(i,'. ',q.vopr);
      end;

у меня же q и есть переменная типа test. А история та же всё ещё

Я же предупредил:, а ты опять хочешь прочесть только одно поле...

read(f1, q); { <--- Вот так у компилятора не будет претензий }

Тогда можно оставить вот так..

      read(f1,q);
      writeln(q.vopr);
      for i:=1 to q.j_sk do
      begin
        writeln(i,'. ',q.vopr);
      end;

те ридлайны, что были раньше надо убрать, так как прочитана уже вся запись?

Тогда теперь ему что-то уже здесь не нравится

      for i:=1 to q.j_sk do
      begin writeln(i,'. ',q.otv);{<--здесь}
      end;

Нет

      for i:=1 to q.j_sk do
      begin writeln(i,'. ',q.otv[i]);
      end;

теперь почему-то после заполнения файла вопросов он выдает оценку ПЛОХО и всё... Что делать?

Не в этом смысле..
Вначале идёт вообще создание файла с вопросами..
Это всё работает, но потом сразу же (не задавая вопросов) даёт оценку

Приведи еще раз, что получилось, ведь были еще исправления, а то в исходном коде есть такие интересные строки:

writeln('Vvedite nomer praviljnogo otveta i nazhmite <Enter>');
writeln('Nazhmi <Enter> chtob nachatj test');
clrscr;

т.е. написали и стерли сразу..

Вот такое получилось
Нажмите для просмотра прикрепленного файла

Перед

while not eof(f1) do begin

надо поставить Reset (f1), чтоб сбросить указатель чтения в начало файла. + то, о чем я говорил раньше:

if otv_nr=q.prav then inc(prav_otv);

На otv_nr он говорит что неизвестный идентификатор. Если поставить r.otv_nr ое перестаёт дальше компилировать

Вот так программа работае.

write('Vash vybor-->');
readln(r.otv_nr);
if r.otv_nr=q.prav then inc(prav);
writeln;
end;

Проблемма.. Всё можно ввести, задаст вопросы, примет ответы, и ... напишет что файл не открыт.. А почему?

Ну да, правильно, я имел ввиду, что прблема в отсутствующем "q.".

if r.otv_nr=q.prav then inc(r.prav_nr);

Про файл ничего не говорит у меня, оценку ставит..

А может потому что у меня в папке много файлов и я одно и то же название ввожу? Его заглючило

Да работает...
А как сделать так, чтоб он записывал во второй файл результаты, а не просто его создавал?

Ты делаешь Close (f2), хотя его не открывала. Он у тебя вообще не используется. Поставь в начале Rewrite (f2) хотя бы.

Сделала... Всё равно не пишет.. Ну и ладно...

Спасибо!!!!

Эт я тебе про ошибку написал, а не пишет т.к. записи то и нет.. Если в начале поставить rewrite (f2), а перед close (f2) поставить write (f2,r), то запишет..

Пишеееет!!!!!!! Ураааа