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



style="display:block"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="5792664354"
data-ad-format="link">

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.

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.

Популярность: 1% [?]

Метки:на delphi

Связанные записи

Рубрика: Delphi · Метки:

Выразите свои мысли

Скажите нам, что вы думаете...
и если вы хотите сопроводить комментарий своей аватаркой, воспользуйтесь сервисом gravatar!