программа Pascal которая отделяет корни уравнения: составляет таблицу значений функции на интервале от 0 до 1,95 с шагом 0,15 и выделяет соседние значения аргументов для которых значения функции имеют разные знаки, то есть значения аргументов между которыми находится нуль функции

Добавил для иллюстрации график функции

Спасибо.

Спасибо тут принято выражать кнопочкой в ответе, а размер благодарности - количеством звездочек.

function F(x: real): real;begin  F := 3 * sin(x) + 2 * sqr(x) - 1;end;var  a, b, h, x, Fa, Fx: real;begin  Write('Введите через пробел начало интервала, конец и шаг: ');  Readln(a, b, h);  x := a; Fa := F(a);  repeat    Fx := F(x);    if Fx = 0 then Writeln('Найден корень ', x:0:3)    else    if Fx * Fa < 0 then      Writeln('Найден интервал изоляции корня (', a:0:3, ';', x:0:3, ')');    a := x; Fa := Fx; x := x + h  until x > b;end.Тестовое решение:Введите через пробел начало интервала, конец и шаг: 0 1.95 0.15Найден интервал изоляции корня (0.150;0.300)Введите через пробел начало интервала, конец и шаг: -5 5 0.1Найден интервал изоляции корня (-1.500;-1.400)Найден интервал изоляции корня (0.200;0.300)