Из опыта создания универсальных тестовых редакторов

Категория реферата: Рефераты по информатике, программированию
Теги реферата: особенности курсовой работы, образ жизни доклад
Добавил(а) на сайт: Казимира.

Begin oform; {оформление начала программы}

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

альтернативных функций}

Writeln('Просмотр результатов(Search),Выход(Any key)'); b:=readkey; {выбор нужной функции} case b of {оператор варианта}
По нажатию соответствующей клавиши происходит выбор функции.
'n','в':Begin l1: {выполнение функции}

End;
'o','й':Begin l2: {выполнение функции}

End;
'r','Є':Begin l3: {выполнение функции}

End;

's','ы':Begin 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; {расчет количества правильных ответов}

Поделитесь этой записью или добавьте в закладки