Question

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

Answer 1

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)