Курсовая работа: Создание тестирующей программы

const simbol:set of char=['y','Y','n','N',’r’,’R’,’t’,’T’];

….

var … key:char;

Procedure MainMenu(posmaster:word);

В описании констант мы указываем ['y','Y','n','N',’r’,’R’,’t’,’T’] – это символы вводимые с клавиатуры. Далее начинаем цикл с пост условием

Repeat

Ключу (key) присвоим значение считать ключ (readkey) , при этом условие выхода ключ указанный в списке констант (untilkeyinsymbol):

key:=readkey until key in simbol;

По нажатию клавиши 'y','Y' – происходит дальнейшее считывание. Срабатываетпроцедура"Test".

case key of

'y','Y':writeln;

…;

end;

Понажатиюклавиши 'r','R' -

case key of

'r','r':begin

на экран выводится сообщение "Для завершения программы нажмите – n" "Для редактирования вопросов –T". При нажатии "n" происходит завершение программы и, всех процедур и функций.

case key of

'n','N':halt;

При нажатии "T" – происходит редактирование вопросов и ответов.

case key of

't','T':begin

…;

End;

Вы должны указать количество вопросов, после чего будет совершена перезапись файла. Для этого в теле основной программы нужно указать счетчик "x" – целого типа, он указывает количество вопросов; и счетчик "j" – для использования в качестве условия выхода из цикла

until j=x;

После пререзаписи файла старые данные файла не сохраняются. При повторном запуске программы используется уже вновь записанные данные.

Процедура "umnogenie"

Эта процедура разработана для вывода на экран сообщения – предупреждения, о том что знак умножения (shift+8) обязателен, иначе ответ не будет считатьс правильным.