mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 13:29:28 +02:00
11 lines
205 B
ObjectPascal
11 lines
205 B
ObjectPascal
Program Example10;
|
|
|
|
{ Program to demonstrate the cycletorad function. }
|
|
|
|
Uses math;
|
|
|
|
begin
|
|
writeln(cos(cycletorad(1/6))); // Should print 1/2
|
|
writeln(cos(cycletorad(1/8))); // should be sqrt(2)/2
|
|
end.
|