[lmikle]

Сообщение от Swd

Завтра сдавать, помогите пожалуйста

Ну что-то типа:

Код:

function F(x : Double) : Double;
begin
  // Здесь твоя функция
end;

function FindSolution(a, b, e : Double) : Double;
var
  Fa, Fb, Fc : Double;
begin
  Repeat
    Fa := F(a);
    Fb := F(b);
    Fc := F((a+b)/2);
    If Sigh(Fa) = Sign(Fc) Then a := (a+b)/2 Else b := (a+b)/2;
  Until Abs(Fc) < Abs(e);
end;

Здесь нет проверки, что решение существует. e - искомая точность. Лучше всего задавать отличной от 0, хотя и можно достаточно маленькой.