Фразы преподавателей ЮУРГТК

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.