program IExe4; { solve the equation sin(X)+cos(X)=0 } uses //Forms, UInterv ; (* {$R *.RES} *) function F3(X:TIFloat):TIFloat; far; begin F3:=sin(X)+cos(X) end; function DF3(X:TIFloat):TIFloat; far; begin DF3:=cos(X)-sin(X) end; var N:TIntervalNewtonSolution; I:Longint; begin N.Init(F3,DF3,ISet(0,8)); for I:=1 to 20 do Writeln(IntervalToStr(N.RunStep)); N.Done; ReadLn; end.