Читать курсовая по всему другому: "Создание тестирующей программы" Страница 5

(Назад) (Cкачать работу)

Выводим сообщение о номере вопроса: write('вопрос',z,':',' '); С помощью порцедуры "read" – считываем связанную переменную из файла: read(f,readstring);

read(f,namefile); Далее на экран выводится сообщение считанной переменной и сообщение про возможность ввода ответа: Writeln(readstring);

Write('Ответ ');Readln(otv); writeln; Оператора "Readln(otv)" считывает вводимый ответ с клавиатуры.

Для контролирования количества правильных ответов и вывода на

экран оценки используем алгоритм с ветвлением.

"If" – оператор ветвления. If x>=0 then y:=x else y=-x Если введённый ответ будет соответствовать считываемому ответу из файла, то количество правильны ответов будет увеличиваться, тем самым увеличивается оценка проверки знаний тестируемого. if otv = otvfile then begin e:=e+1; u:=u+1; Для того чтобы оценка соответствовала не количеству вопросов, а оценкам пяти бальной системы, нужно указать условие: если количество ответов меньше либо равна z1, ваша оценка – 2 иначе, если ответов больше z1, но меньше либо равно z2, ваша оценка – 3 иначе , если количество ответов больше z2, но меньше либо равна z3, ваша оценка – 4 иначе, ваша оценка – 5; if uz1) and (uz2) and (u

Похожие работы