1049985
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 1.410 руб.;
- курсы повышения квалификации от 430 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ ДО 90%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до конца апреля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

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

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

библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

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

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


Общая информация

Номер материала: ДВ-277703

Вам будут интересны эти курсы:

Курс повышения квалификации «Современные информационные технологии и их использование в работе преподавателей. Системы автоматизированного проектирования одежды и организация технологического процесса»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс «WEB-ВЕРСТКА (HTML, CSS)»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Математика и информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»
Курс повышение квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

Добавьте минимум пять материалов, чтобы получить сертификат о создании сайта

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

Грамота за высокий профессионализм, проявленный в процессе создания и развития собственного учительского сайта в рамках проекта "Инфоурок"

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

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