===== PascalABC.NET =====
function F(x: real) := x - 1 / (3 + Sin(3.6 * x));
begin
var (a, b, eps) := (0.0, 0.85, 1e-5);
var x: real;
while Abs(F(a) - F(b)) >= eps do
begin
x := (a + b) / 2;
var y := F(x);
Writeln('Интервал (', a, ',', b, '), x = ', x, ', y =', y);
if Sign(y) = Sign(F(a)) then
a := x
else
b := x
end;
x := (a + b) / 2;
Writeln('Решение: х = ', x, ', y = ', F(x))
end.
Эмм , если училка разрешает ток
А фотку учебника? Ну или автора
Уменьшенная копия?
<span>или масштаб</span>