Вычислить значение выражения - PascalABC.NET (24600)

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

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

program pr;
var
x:integer;
z:double;
begin
writeln('Введите х');
readln(x);
if ((x>-2) and (x<2)) then
z:=-(3+exp(x*ln(2)))/(abs(x)-2)
else
z:=tan(x)-3;
writeln('z(',x,') = ',z);
end.

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

Код на языке PascalABC.Net выполняет следующие действия:

Задает две переменные: x типа integer и z типа double.
Выводит сообщение Введите х и считывает значение переменной x с помощью функции readln.
Использует условный оператор if для проверки значения переменной x.
Если условие истинно (x больше -2 и меньше 2), то вычисляет значение переменной z с помощью формулы -(3+exp(x*ln(2)))/(abs(x)-2) и сохраняет его в переменной z.
Если условие ложно, то вычисляет значение переменной z с помощью формулы tan(x)-3 и сохраняет его в переменной z.
Выводит сообщение z(x) = и значение переменной z с помощью функции writeln. Список действий:
Задать переменные x и z.
Вывести сообщение и считать значение x.
Проверить условие и вычислить значение z.
Сохранить значение z в переменной z.
Вывести сообщение и значение z.