mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 20:31:51 +01:00
9 lines
149 B
ObjectPascal
9 lines
149 B
ObjectPascal
program testm;
|
|
|
|
uses math;
|
|
|
|
begin
|
|
writeln (tan(arctan2(1,2)));
|
|
writeln (pi/4,'=',arccos(cos(pi/4)));
|
|
writeln (pi/4,'=',arcsin(cos(pi/4)));
|
|
end. |