mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 14:53:42 +02:00
21 lines
384 B
ObjectPascal
21 lines
384 B
ObjectPascal
Program Example1;
|
|
|
|
{ Program to demonstrate the arcsin function. }
|
|
|
|
Uses math;
|
|
|
|
Procedure WriteRadDeg(X : float);
|
|
|
|
begin
|
|
Writeln(X:8:5,' rad = ',radtodeg(x):8:5,' degrees.')
|
|
end;
|
|
|
|
begin
|
|
WriteRadDeg (arcsin(1));
|
|
WriteRadDeg (arcsin(sqrt(3)/2));
|
|
WriteRadDeg (arcsin(sqrt(2)/2));
|
|
WriteRadDeg (arcsin(1/2));
|
|
WriteRadDeg (arcsin(0));
|
|
WriteRadDeg (arcsin(-1));
|
|
end.
|