3
{ Program to demonstrate the arcsin function. }
7
Procedure WriteRadDeg(X : float);
10
Writeln(X:8:5,' rad = ',radtodeg(x):8:5,' degrees.')
14
WriteRadDeg (arcsin(1));
15
WriteRadDeg (arcsin(sqrt(3)/2));
16
WriteRadDeg (arcsin(sqrt(2)/2));
17
WriteRadDeg (arcsin(1/2));
18
WriteRadDeg (arcsin(0));
19
WriteRadDeg (arcsin(-1));