blob: 0f418840d01d03385d2e83b45874e636be76279c (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
Program Example37;
{ Program to demonstrate the radtocycle function. }
Uses math;
begin
writeln(radtocycle(2*pi):8:6);
writeln(radtocycle(pi):8:6);
writeln(radtocycle(pi/2):8:6);
end.
|