Помогите разобраться с методом хорд

[Alex_G1000]

Расскажите как сделать.

[ProBeginner]

Type Func=function(x:real):real;
Var Result:real;
    X:real;
Function F(x:real):real; far;
  Begin
    F:=x*x-100
  End;
Function Root(X0:real;F:Func):real;
  const Eps=0;
  var X,XNew:real;
      F0:real;
      Fx:real;
  Begin
    F0:=F(X0);
    X:= X0+1;
    XNew:=X+1;
    while abs(XNew-X)>Eps do
      begin
        X:=XNew;
        Fx:=F(X);
        if Fx<>0
          then  XNew:=X-(X-X0)/(1-F0/Fx)
          else  XNew:=X
      end;
    Root:=(XNew+X)/2
  End;
BEGIN
  Write('Введите приближение корня '); ReadLn(X);
  Result:=Root(X,F);
  writeln('x=',Result,'  F(x)=',F(Result))
END.

Нарисуйте от балды график монотонной функции пересекающей ось X.
Ткните любую точку - начальное приближение и посмотрите значение Y.
Ткните любую точку от начального приближения слева или справа, и посмотрите значение Y - если увеличилась разность с нулём, значит тыкать надо в другую сторону, если уменшилась, значит используйте как новое начальное приближение.
При каждом переопределении начального приближения, расстояние до нового тыка надо уменьшать.

Для ускорения, новое приближение рассчитывается как пересечение хорды двух известных приближений с осью X - это и будет метод хорд.