program IExe5;
{ solve the equation X*X-2=0 }
uses
  //Forms,
  UInterv ;

(*   {$R *.RES}   *)

function F4(X:TIFloat):TIFloat; far;
begin
F4:=X*X-2
end;

function DF4(X:TIFloat):TIFloat; far;
const DX:extended=0.1/(100000000);
begin
DF4:=(F4(X+DX)-F4(X))/DX;    //      DF4:= lim dy/dx       dx-->0  (try to be)
end;

var N:TIntervalNewtonSolution;
    I:Longint;
begin
  N.Init(F4,DF4,ISet(-100,200));
  for I:=1 to 20 do
      Writeln(IntervalToStr(N.RunStep));
  N.Done;

  ReadLn;


end.