Курбанова Ирина Борисовна, Хайми Наталия Ивановна, учителя информатики и ИКТ, ГБОУ школы 594 Санкт-Петербург

Задача: Составьте программу-тест из 5 вопросов (к каждому вопросу дается 3 варианта ответов, один из которых правильный). За каждый правильный ответ начисляется 1 балл. В конце теста выведите сообщение о количестве набранных баллов и поставьте оценку.

Пример работы программы:

Какие нужны переменные и какого типа? otv – для проверки ответов на совпадение S – для накопления баллов Тип – целые (integer, byte, word)

Проблемы: 1)Как вывести текст вопроса и варианты ответов? 2)Как считать ответ? 3)Как подсчитать количество набранных баллов и сообщить верный ответ или нет? Writeln ( вопрос …); Writeln ( ответ 1…); Writeln ( ответ 2…); Решение: Readln (otv); В начале программы S:=0; В каждом вопросе: if otv = … then begin S:= S+1; writeln(верно!); end else begin S:=S; writeln(неверно!); end;

4)Как использовать цветной шрифт для вопросов и ответов? 5)Как поставить отметку в соответствии с набранным количеством баллов? В начале подключить модуль Crt Uses Crt; Затем менять цвет шрифта: Textcolor(…); В конце программы: Case S of 5: Writeln(Отлично!); 4: Writeln( … ); 3: Writeln( … ); 0,1,2: Writeln( … ); else; end;

S := 0; Вопрос 1 и 3 варианта ответов Ждем ответ Верно ? S := S + 1; S := S; (не изменяется) Повторить для вопросов 2,3,4,5 Повторить для вопросов 2,3,4,5 Проверка значения S S = 5 Оценка 5 S = 5 Оценка 5 S = 4 Оценка 4 S = 3 Оценка 3 S = 3 Оценка 3 S = 0,1,2 Оценка 2 нет да

Ссылки: Программное обеспечение: Turbo Pascal 7.1 (с поддержкой кириллицы) php Рисунок на титульном слайде: