Вычислить значение функции - Pascal (81046)

Формулировка задачи:

Разработать программу в соответствии с заданием. В программе обязательно продемонстрировать возможность использование оператора выбора CASE. Вводится целое число X. Разработать программу вычисления Y=f(X). Если X=1, то Y=cos(X), если X=2, то Y=sin(X), если X=3, то Y=ln(X), если X=4, то Y=exp(X). Значение Y вывести на экран компьютера. Если введено другое значение X, то выдать сообщение об ошибке значения X и повторить ввод.

Решение задачи: «Вычислить значение функции»

Листинг программы

var x:integer;
    y:real;
begin
repeat
write('Введите х, целое число от 1 до 4 x=');
readln(x);
case x of
1:y:=cos(x);
2:y:=sin(x);
3:y:=ln(x);
4:y:=exp(x);
else writeln('Ошибка ввода, повторите');
end;
until x in [1..4];
write('y=',y:0:3);
end.

Объяснение кода листинга программы

Создается переменная x типа integer.
Создается переменная y типа real.
В цикле repeat-until выполняется следующее:
- Выводится сообщение 'Введите х, целое число от 1 до 4 x='.
- Считывается значение переменной x.
- Выполняется операция case:
  - Если x равно 1, то присваивается значение y переменной cos(x).
  - Если x равно 2, то присваивается значение y переменной sin(x).
  - Если x равно 3, то присваивается значение y переменной ln(x).
  - Если x равно 4, то присваивается значение y переменной exp(x).
  - Если x не равно ни одному из указанных значений, то выводится сообщение 'Ошибка ввода, повторите'.
Выводится значение переменной y.