Вычислить значение выражения - Pascal (80239)

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

Вычислите F(X) в зависимости от введенного X. При составлении алгоритма использовать полную форму ветвления и вложенные структуры ветвления.

Решение задачи: «Вычислить значение выражения»

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

VAR
x:real;
 
begin
write('x=');
readln(x);
if x <= 1 then writeln('F(x)=',(-3*x*x+9):8:2) else
if x < 10 then writeln('F(x)=',((-3)/(x+1)):8:2) else
               writeln('F(x)=',(-sin(2*pi*x)):8:2);

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

Объявляется переменная x типа real.
Выводится на экран сообщение x=, после чего происходит считывание значения переменной x с клавиатуры.
Выполняется проверка условия: если значение переменной x меньше или равно 1, то выполняется следующая команда:
- Выводится на экран значение функции F(x) = (-3*x*x+9) с точностью до двух знаков после запятой.
Если предыдущее условие не выполнено, и значение переменной x менее 10, то выполняется следующая команда:
- Выводится на экран значение функции F(x) = ((-3)/(x+1)) с точностью до двух знаков после запятой.
Если ни одно из предыдущих условий не выполнено, выполняется следующая команда:
- Выводится на экран значение функции F(x) = (-sin(2*pi*x)) с точностью до двух знаков после запятой.