Файлы прямого доступа, Программа тестирования Опции

[Anastacia Adesso]

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

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

 UZD10.PAS ( 2.37 килобайт ) Кол-во скачиваний: 368

Может кто-нибудь в этом разбирается...

Сообщение отредактировано: Anastacia Adesso - 8.01.2007 12:54

[Anastacia Adesso]

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

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

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