Составьте программу,вычисляющую значение функции - Pascal ABC

Решение задачи: «Составьте программу,вычисляющую значение функции»

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

program pr;
var
  y, x: real;
begin
  writeln('Введите х');
  readln(x);
  if (x > -3.5 ) and (x <= 0) then
    y := (x * x * x - x * x) / (x - 1);
  if (x > 0) and (x < 4) then
    y := exp((x - 2) * ln(5.1)) + 8;
  if  (x >= 4) and (x < 22.5) then
    y := sin(x + 5) - 6;
  writeln('y= ', y);
end.

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

В программе объявлены две переменные: y и x, которые имеют тип real.
Программа выводит сообщение «Введите х», чтобы пользователь мог ввести значение переменной x.
С помощью оператора if проверяется условие: x должно быть больше -3.5 и меньше или равно 0. Если это условие выполняется, то вычисляется значение y по формуле (x x x — x * x) / (x — 1).
Если условие из пункта 3 не выполняется, то проверяется другое условие: x должно быть больше 0 и меньше или равно 4. Если это условие выполняется, то вычисляется значение y по формуле exp((x — 2) * ln(5.1)) + 8.
Если ни одно из условий из пунктов 3 и 4 не выполняется, то проверяется третье условие: x должно быть больше или равно 4 и меньше или равно 22.5. Если это условие выполняется, то вычисляется значение y по формуле sin(x + 5) — 6.
Наконец, выводится на экран значение переменной y с помощью оператора writeln.