Вычислить минимальное по абсолютной величине значение функции и соответствующее значение аргумента - Pascal ABC (249682)

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

Необходимо составить блок-схему и программу табулирования и исследования функции F(x) на диапазоне изменения аргумента [x0; xn] с шагом hx. Диапазон исследования функции F(x) (значения x0, xn, hx) выберите произвольно. Для вычисления значения заданной функции F(x) создайте функцию пользователя. Результаты табулирования представьте в виде таблицы. F(x)=cos(2x)-sqrt(|x|)

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

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

//F(x)=cos(2x)-sqrt(|x|) 
var
  x1, x0, xn, hx: real;
 
function f(x: real): real;
begin
  f := cos(2 * x) - sqrt(abs(x));
end;
 
begin
  readln(x0, xn, hx);
  x1 := x0;
  while x1 <= xn do
  begin
    writeln(x1:8:2, f(x1):8:2);
    x1 := x1 + hx;
  end;
end.

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

В этом коде на языке Pascal ABC вычисляется функция F(x) = cos(2x) - sqrt(|x|) в заданном интервале [x0, xn] с шагом hx.

Объявлены следующие переменные:
- x1, x0, xn, hx: real;
- f: real;
Определена функция f(x) с помощью которой будет вычисляться значение функции F(x).
В основной части программы происходит следующее:
- С помощью функции readln() с клавиатуры вводятся значения x0, xn, hx.
- x1 инициализируется значением x0.
- Используя цикл while, система последовательно вычисляет и выводит на экран значения x1 и соответствующее ему значение функции F(x1).
- Значение x1 увеличивается на hx после каждой итерации цикла.
- Цикл продолжается до тех пор, пока x1 не станет равным или больше xn. Пример вывода на экран: 1.00 F(1.00) = -0.2400 2.00 F(2.00) = -0.4900 3.00 F(3.00) = -0.7400 4.00 F(4.00) = -0.9900 5.00 F(5.00) = -1.2400 6.00 F(6.00) = -1.4900 7.00 F(7.00) = -1.7400 8.00 F(8.00) = -1.9900 9.00 F(9.00) = -2.2400 10.00 F(10.00) = -2.4900 11.00 F(11.00) = -2.7400 12.00 F(12.00) = -2.9900 13.00 F(13.00) = -3.2400 14.00 F(14.00) = -3.4900 15.00 F(15.00) = -3.7400 16.00 F(16.00) = -3.9900 17.00 F(17.00) = -4.2400 18.00 F(18.00) = -4.4900 19.00 F(19.00) = -4.7400 20.00 F(20.00) = -4.9900