Вычислить значение функции в зависимости от интервала, в который попадает вводимый с клавиатуры аргумент - Pascal

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

Вычислить значение функции в зависимости от интервала, в который попадает вводимый с клавиатуры аргумент. Для x Є [0, 7], где a = -2.7, b = -0.27:

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

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

const
  a = -2.7;
  b = -0.27;
  xa = 0;
  xb = 7;
 
var
  i : Byte;
  z : Double;
  x, h : Single;
 
begin
  x := xa;
  Write('Input h (step)='); ReadLn(h);
  WriteLn('  x', #9, '  z');
  while (x <= xb) do
  begin
    if ((x >= 0) and (x < 2.3)) then
      z := (a + b) / (exp(x) + cos(x));
    if ((x >= 2.3) and (x < 5)) then
      z := (a + b) / (x + 1);
    if ((x >= 5) and (x <= 7)) then
      z := exp(x) + sin(x);
    WriteLn(x:4:2, #9, z:7:2);
    x := x + h;
  end;
end.

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

Введенные константы:
- a = -2.7;
- b = -0.27;
- xa = 0;
- xb = 7;
Введенные переменные:
- i (Byte) - используется для цикла;
- z (Double) - результат вычислений;
- x (Single) - текущее значение переменной x;
- h (Single) - шаг изменения переменной x, введенный с клавиатуры.
Инициализация переменной x значением xa.
Вывод сообщения с просьбой ввести значение h.
Вывод таблицы с значениями x и z.
Цикл while, выполняющийся до тех пор, пока x <= xb.
Внутри цикла проверка диапазона значения x:
- Если x >= 0 и x < 2.3, то значение z вычисляется по формуле (a + b) / (exp(x) + cos(x)).
- Если x >= 2.3 и x < 5, то значение z вычисляется по формуле (a + b) / (x + 1).
- Если x >= 5 и x <= 7, то значение z вычисляется по формуле exp(x) + sin(x).
Вывод значения x и z.
Увеличение значения x на шаг h.
Цикл while повторяется до тех пор, пока x <= xb.