Найти значение выражения - Pascal (247985)

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

Во входном потоке задано три вещевственных числа а (а>0), b(b<0), x (-1< x < 1). Значения исходных данных подобраны так что выражение имеет смысл. В выходной поток вывести единственное вещевственное число с точность. 3 знака после запятой. Пример входного файла : 2.4 -4.1 - 0.6 пример выходного файла: 2.292 http://www.cyberforum.ru/attachment....1&d=1515951273

Решение задачи: «Найти значение выражения»

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

var
    a,b,x,p,y:real;
begin
    readln(a,b,x);
    if x>0 then p:=b+(exp(sqr(a)-1)+(sqr(cos(a*sqr(x)))*cos(a*sqr(x))))/(b*sqr(x)*ln(exp(5*ln(a))-x))
            else if x=0 then begin
                y:=sqr(a)*b;
                p:=exp(1/3*ln(sqr(a)*(x+abs(sqr((sin(y)/cos(y)))*(sin(y)/cos(y))))));
                end
                else p:=(sqr(a)-sqr(sin(exp(3*ln(8-sqr(x))))))/(0.5*x*sqrt(abs(a*sqr(x)-(b*b*b))));
    writeln(p:9:3);
end.

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

Ввод значений переменных a, b, x с помощью функции readln.
Проверка значения переменной x.
Вычисление значения переменной p в случае, если x больше нуля.
Вычисление значения переменной p в случае, если x равно нулю.
Вычисление значения переменной p в случае, если x меньше нуля.
Вывод значения переменной p с помощью функции writeln, с указанием формата вывода числа с 9 знаками после запятой и 3 знаками после запятой.
Завершение работы программы.