имеет на нем ровно 1 корень, т.е. f(a ) * f( b ) < 0
Эта задача решается методом половинного деления.
assert(b > a);var fa := f(a);var fb := f(b);assert(fa * fb < 0); while b - a > eps dobegib var x := (b + a) / 2; var fx := f(x); if fx * fa > 0 then begin a := x; fa := fx; end else b := x;end;
