Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Другие методич. материалы / Программа для проведения компьютерного тестирования на языке Паскаль.
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

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

библиотека
материалов

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

Программа позволяет провести тестирование с использованием компьютера. Тест состоит из 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.



Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Автор
Дата добавления 21.12.2015
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров230
Номер материала ДВ-277703
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх