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.