Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата

        Write(g1,':',g2,' ',g3);

        Delay(1000);

        until Eof(c);

     l1:f1:=f1+'o';

        close(c); {закрытие всех файлов}

        close(u);

        Window(55,10,80,15); {закрытие окон}

        TextBackGround(black);

        clrscr;

        Window(10,10,53,15);

        TextBackGround(black);

        clrscr;

        Window(15,10,50,19);

        TextBackGround(blue);

        clrscr;

        <подсчет результата>

    End;

Единственной проблемой здесь явилось неправильное чтение программой исходных данных. Естественно, разрабатывая сложные системы, с первого раза компилляция не удается никогда, но после корректировки программы она стала работать как надо.

!!! Не забывайте закрывать файлы после использования и перезагружать их после прочтения до конца по необходимости, иначе возникнет ошибка Disk Read Error!!!

Эта ошибка может стоить вам всего файла. Очень часто после сбоя при чтении файла этот файл заново прочитать вам не удастся.

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

 Procedure RedactF;

    Begin

    Window(10,10,53,15);

        TextBackGround(black);

Рекомендуем скачать другие рефераты по теме: allbest, реферат отношения.





Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата