Вычислить значение функции в зависимости от интервала - Free Pascal

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

Вычислить значение функции в зависимости от интервала, в который попадает вводимый с клавиатуры аргумент: Для x [0,2], где b=-2.9 y= |e-2x sin bx| при x >1, y= cos bx при x = 1, y= e-x cos bx при x < 1, Составить две программы на If и case соответственно

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

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

program p2;
uses crt;
{ case }
Const
b=-2.9;
Var
x:integer;
y:real;
V:char;
BEGIN
clrscr;
write('x= ');readln(x);
writeln('1 - x>1');
writeln('2 - x=1');
writeln('3 - x<1');
writeln;
write('Ваш выбор: ');
readln(V);
case V of
'1': begin
     y:=abs(exp(-2*x)*sin(b*x));
     writeln(y:6:3);
     end;
'2': begin
     y:=cos(b*x);
     writeln(y:6:3);
     end;
'3': begin
     y:=exp(-x)*cos(b*x);
     writeln(y:6:3);
     end;end;
readln;
END.

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

В этом коде на языке программирования Free Pascal реализована программа для вычисления значений функций в зависимости от интервала, введенного пользователем. Список действий в коде:

Сначала определены константы и переменные:
- b=-2.9;
- x:integer;
- y:real;
- V:char;
Затем происходит очистка экрана и ввод значений переменных:
- clrscr;
- write('x= ');readln(x);
После этого выводятся условия выбора интервала:
- writeln('1 - x>1');
- writeln('2 - x=1');
- writeln('3 - x<1');
Пользователю предлагается выбрать интервал ввода:
- write('Ваш выбор: ');
- readln(V);
Далее происходит проверка выбора пользователя и вычисление значений функций:
- case V of
- '1': begin
- y:=abs(exp(-2x)sin(b*x));
- writeln(y:6:3);
- end;
- '2': begin
- y:=cos(b*x);
- writeln(y:6:3);
- end;
- '3': begin
- y:=exp(-x)cos(bx);
- writeln(y:6:3);
- end;
В конце программы происходит чтение ввода пользователя:
- readln;