mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 16:59:45 +01:00
21 lines
286 B
ObjectPascal
21 lines
286 B
ObjectPascal
Program Example47;
|
|
|
|
{ Program to demonstrate the Tan function. }
|
|
|
|
Uses math;
|
|
|
|
Procedure DoTan(Angle : Float);
|
|
|
|
begin
|
|
Write('Angle : ',RadToDeg(Angle):8:6);
|
|
Writeln(' Tangent : ',Tan(Angle):8:6);
|
|
end;
|
|
|
|
begin
|
|
DoTan(0);
|
|
DoTan(Pi);
|
|
DoTan(Pi/3);
|
|
DoTAn(Pi/4);
|
|
DoTan(Pi/6);
|
|
end.
|