mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-27 07:30:13 +02:00
16 lines
234 B
ObjectPascal
16 lines
234 B
ObjectPascal
Program Example6;
|
|
|
|
{ Program to demonstrate the arctan2 function. }
|
|
|
|
Uses math;
|
|
|
|
Procedure WriteRadDeg(X : float);
|
|
|
|
begin
|
|
Writeln(X:8:5,' rad = ',radtodeg(x):8:5,' degrees.')
|
|
end;
|
|
|
|
begin
|
|
WriteRadDeg (arctan2(1,1));
|
|
end.
|