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.