TP3/shell/tests/fixtures/t106_trig.pas

program t106_trig;

{ t106 -- Sin, Cos and Arctan. }

var
  R : real;
  S : string[40];
begin
  R := 0;
  Str (Sin (R) : 0 : 6, S) ; writeln (S) ;
  R := 1.5707963268;
  Str (Sin (R) : 0 : 6, S) ; writeln (S) ;
  R := 1;
  Str (Sin (R) : 0 : 6, S) ; writeln (S) ;
  R := 0;
  Str (Cos (R) : 0 : 6, S) ; writeln (S) ;
  R := 3.1415926536;
  Str (Cos (R) : 0 : 6, S) ; writeln (S) ;
  R := 1;
  Str (Cos (R) : 0 : 6, S) ; writeln (S) ;
  R := 0;
  Str (Arctan (R) : 0 : 6, S) ; writeln (S) ;
  R := 1;
  Str (Arctan (R) : 0 : 6, S) ; writeln (S) ;
  R := -1;
  Str (Arctan (R) : 0 : 6, S) ; writeln (S) ;
  R := 2;
  Str (Arctan (R) : 0 : 6, S) ; writeln (S)
end.