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

Узнай цену своей работы

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

textual
Листинг программы
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 выполняет следующие действия:

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

Оцени полезность:

12   голосов , оценка 3.667 из 5