Задачи по Pascal. Выбор правильного ответа.

Автор cyber На чтение 2 мин.

Условие задачи : написать программу проверки знания футбола . Программа должна вывести вопрос на экран с вариантами ответа, а пользователь должен выбрать один из них.

Сложность : легкая .

Задача довольно простая . Сделаем мы её с помощью if then else . Для начала нам надо придумать какой-нибудь вопрос. Я решил его сделать про «Золотой мяч».

Допустим вопрос у нас есть . Давайте теперь создадим каркас нашей задачи с переменными которые нам нужны.
Нам понадобиться только одна переменная под ответ.

uses crt ;
var
     otvet : integer ;
begin
end.

Теперь мы выводим вопрос и варианты ответа :

writeln('Кто в 2012 году получил ''Золотой мяч''?');
writeln('1. Криштиану Роналду') ;
writeln('2. Андрес Иньеста') ;
writeln('3. Лионель Месси') ;

Теперь мы говорим пользователю, чтобы он ввел номер ответа. Дальше мы пишем условие :

writeln('Выберите номера ответа и нажмите ');
write('Введите номер ответа : '); readln(otvet);

if (otvet = 3) then writeln('Правильно')
else
     begin
           if (otvet < 1) or (otvet > 3) then writeln('Введите число от 1 до 3.')
           else writeln('Не правильно. Ответ - Лионель Месси');
     end;

Вот и всё задача готова.

Весь код программы :

uses crt ;
var
     otvet : integer ;
begin
clrscr;
writeln('Кто в 2012 году получил ''Золотой мяч''?');
writeln('1. Криштиану Роналду') ;
writeln('2. Андрес Иньеста') ;
writeln('3. Лионель Месси') ;

writeln('Выберите номера ответа и нажмите Enter');
write('Введите номер ответа : '); readln(otvet);

if (otvet = 3) then writeln('Правильно')
else
     begin
           if (otvet < 1) or (otvet > 3) then writeln('Введите число от 1 до 3.)
           else writeln('Не правильно. Ответ - Лионель Месси');
     end;
readln;
end.