fpcdocs/refex/ex4.pp


1
2
3
4
5
6
7
8
9
10

Program Example4;

{ Program to demonstrate the ArcTan function. }

Var R : Real;

begin
  R:=ArcTan(0);      { R:=0 }
  R:=ArcTan(1)/pi;   { R:=0.25 }
end.