Ответы на вопрос:
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)
Объяснение:
Лови! Удачки!Популярно: Информатика
-
misszephir2505.08.2022 03:59
-
polina20041202.02.2022 17:45
-
miksboy29.08.2022 01:48
-
ponchara42308.09.2021 12:38
-
фая4927.07.2022 08:41
-
obsharov707.02.2021 19:46
-
polinaxt110.02.2023 17:26
-
LENUSEA200716.07.2021 14:00
-
20тимоха1801.07.2022 23:05
-
samoilenkoludmi27.07.2020 10:08