Программа для проведения компьютерного тестирования на языке Паскаль

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

Программа позволяет провести тестирование с использованием компьютера. Тест состоит из 10 вопросов. Вопросы предварительно распечатываются. При желании преподавателя количество вопросов может быть увеличено, например до 20. При этом необходимо дополнить программу. Для каждого вопроса предлагаются пять вариантов ответа. Учащимся необходимо выбрать среди них правильный ответ и внести номер выбранного ответа в компьютер. После набора номеров выбранных ответов следует нажать на клавишу <<Enter>>. При этом на экране в виде текста дается результат выполнения теста. В данном примере правильными ответами являются номера 5, 2, 1, 4, 5, 2, 2, 1, 1, 1. Изменив значения A1, A2, …, A10 можно выбрать другие варианты правильных ответов.

Критерии выставления оценок по результатам теста следующие:

9 или 10 правильных ответов - «отлично», 7 или 8 правильных ответов - «хорошо», 5 или 6 правильных ответов - «удовлетворительно». Если же количество правильных ответов меньше 5, то результат -«неудовлетворительно». Критерии к оценкам можно редактировать в тексте программы. Например: если тест предназначен для первых и вторых классов, то можно исключить оценку «неудовлетворительно». Для старших классов можно поднять критерии. То есть программу можно адаптировать для конкретного теста и класса.

Текст программы.

program test;

uses crt;

var A1, A2, A3, A4, A5,A6,A7,A8,A9,A10:integer; {Номера правильных ответов}

S, S1,S2,S3,S4,S5,S6,S7,S8,S9,S10:integer; {Результат за каждый ответ и итоговый результат}

F:string; {Имя ученика}

begin

CLRSCR; {очистка экрана}

S:=0;

writeln ('Введите Ваше Имя');

readln(F);

writeln('введите номер ответа на 1 вопрос');

readln (A1);

if A1=5 then S1:=1 else S1:=0;

begin

writeln('введите номер ответа на 2 вопрос');

readln (A2);

if A2=2 then S2:=1 else S2:=0;

begin

writeln('введите номер ответа на 3 вопрос');

readln (A3);

if A3=1 then S3:=1 else S2:=0;

begin

writeln('введите номер ответа на 4 вопрос');

readln (A4);

if A4=4 then S4:=1 else S4:=0;

begin

writeln('введите номер ответа на 5 вопрос');

readln (A5);

if A5=5 then S5:=1 else S5:=0;

begin

writeln('введите номер ответа на 6 вопрос');

readln (A6);

if A6=2 then S6:=1 else S6:=0;

begin

writeln('введите номер ответа на 7 вопрос');

readln (A7);

if A7=2 then S7:=1 else S7:=0;

begin

writeln('введите номер ответа на 8 вопрос');

readln (A8);

if A8=1 then S8:=1 else S8:=0;

begin

writeln('введите номер ответа на 9 вопрос');

readln (A9);

if A9=1 then S9:=1 else S9:=0;

begin

writeln('введите номер ответа на 10 вопрос');

readln (A10);

if A10=1 then S10:=1 else S10:=0;

begin

S:=S1+S2+S3+S4+S5+S6+S7+S8+S9+S10;

writeln(F,', Вы набрали',' ',S,' ', 'баллов');

IF 9<=S then

Writeln( 'Поздравляю, вы получили оценку " отлично!"')

else

if 7<=S then

writeln(F,', Вы получили оценку "хорошо!"')

else

if 5<=S then writeln(F,', Вы получили оценку "удовлетворительно"')

else writeln(F,', Вы получили оценку "неудовлетворительно"');

readln;

end;

end;

end;

end;

end;

end;

end;

end;

end;

end;

end.