Курсовая работа: Создание тестирующей программы
Счетчик "z" – количество вопросов, присвоим шаг +1 т.е после каждого прохода цикла, "z" будет на одну единицу больше.
z:=z+1;
Cпомощью оператора "clrscr" - очищаем экрана, на протяжении всего цила. Это для того, чтобы новый вопрос выводился на месте предыдущего.
Выводим сообщение о номере вопроса:
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 u<=z1 then p:=2 else
If (u>z1) and (u<=z2) then p:=3 else
If (u>z2) and (u<=z3) then p:=4 else p:=5;
Стандартной процедурой close(f) – закрываем файл.
Для вывода на экран показания счетчиков "e" "u", очистим экран "clrscr". Конец процедуры.
Clrscr;
writeln('Правильны ответов ', e);
writeln('Ваша оценка ', p);
end;
Начинаем тело основной программы. После каждого выполнения цикла, очищаем экран. Всё тело программы состоит из процедур. Для выполнения процедур необходим их вызов. Вызов осуществляется по имени данной процедуры в теле программы. Имя процедуры воспринимается как оператор. При его выполнении, выполняется вся подпрограмма. Посе процедуры "umnogenie" прописываем опрерато "readln", для вывода на экран предупреждающего сообщения и задержки работы процедуры "Test". В конце программы ставится "end".