Дипломная работа: Языки программирования

         l4:  {выполнение функции}

             End;

    End;

   

    Writeln('Новый файл(New),)Открыть файл(Open),Редактировать(Redact)');  {запрос о выборе перед

                                                                                                                                                             выходом}

    Writeln('Просмотр результатов(Search),Выход(Any key)');

    b:=readkey;  {выбор варианта}

   

    case b of  {оператор варианта}

    'n','т':GoTo l1;  {ссылка на метку}

    'o','щ':GoTo l2;

    'r','к':GoTo l3;

    's','ы':GoTo l4;

    End;

Набор операторов безусловного перехода для возвращения к той или иной функции.

   

    End.

   На экран выводится список возможных функций программы. Для выбора определенной функции необходимо нажать соответствующую клавишу (указана в скобках заглавной буквой). Затем оператор варианта запускает нужную функцию. Как видно, учтен случай непереключенного алфавита (буквы вводятся как латинские, так и русские).

   Перед выходом вновь выводится данный запрос (так как цикл неуместен) и в случае выбора определенной функции происходит ссылка на функцию.

Доработка программы.

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

   Рассмотрим перечисленные функции. Функция подсчета результата записана так:

        z:=p*100 div z;      {расчет количества правильных ответов}

        Writeln('количество правильных ответов: ',p);

        Write('оценка '); {выставление оценки}

        If z>=90 Then Begin

                                Writeln('5')

                                Writeln(b1,’5’);

                                End;

        else If z>=70 Then Begin