Фразы преподавателей ЮУРГТК
1 Постановка задачи
Написать программу, реализующую тестирование по теме: «Фразы преподавателей ЮУРГТК». Программа должна знакомиться с пользователем, выводить вопросы и варианты ответа на экран, пользователь выбирает ответ, за который программа начисляет ему баллы. В конце программа выводит на экран количество баллов и результат.
2 Спецификация задачи
Назначение задачи: Приложения «Тестирование»
Среда программирования: PASCAL
Минимальные системные требования: Pentium III
Описание: На экране выводится вопрос и варианты ответа, пользователь вводит с клавиатуры цифру, равную варианту ответа. За каждый правильный ответ пользователь получает 1 балл.
После окончания теста на экран выводится количество баллов и оценка.
Диалог пользователя ограничивается вводом чисел с клавиатуры.
Входные данные: номер ответа от 1 до 3.
Выходные данные: После окончания тестирования программа выводит количество баллов и оценку пользователя.
Ошибки: При вводе числовых значений пользователь может ввести вместо чисел – символы. Поэтому при вводе значений необходимо провести контроль:
1) По принадлежности к целому типу, по знаку, по диапазону.
2) При обнаружении ошибки программа должна выдавать соответствующее сообщение и предлагать повторить ввод.
Листинг
Program PurADA_9;
var i,k:integer;
fam,um:string[20];
begin
k:=0;
{writeln ('Введите вашу фамилию');
readln (fam);
writeln ('Введите ваше имя');
readln (um);
writeln ('Пользователь:');
writeln (fam);
writeln (um); }
writeln ('1.Сколько лет ВОВ?');
writeln ('1) 50 лет');
writeln ('2) 100 лет');
writeln ('3) 66 лет');
readln (i);
case i of
1:writeln ('+0 6AJIJI');
2:writeln ('+0 6AJIJI');
3:k:=k+1;
{writeln ('1.Сколько лет ВОk?');
writeln ('1) 50 лет');
writeln ('2) 100 лет');
writeln ('3) 66 лет');
readln (i);
case i of
1:writeln ('+0 6AJIJI');
2:writeln ('+0 6AJIJI');
3:writeln ('+1 6AJIJI');}
end;
writeln (k);
end.