Реферат: Тест программных программ

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’);