Anonymous user
Trigonometric functions: Difference between revisions
→{{header|Pascal}}
Line 1,320:
radians := pi / 4.0;
degree := 45;
// Pascal works in radians. Necessary degree-radian conversions are shown.
writeln (sin(radians), sin(degree/180*pi));
writeln (cos(radians), cos(degree/180*pi));
writeln (tan(radians), tan(degree/180*pi));
writeln ();
writeln (arcsin(sin(radians)), arcsin(sin(degree/180*pi))/pi*180);
writeln (arccos(cos(radians)), arccos(cos(degree/180*pi))/pi*180);
writeln (arctan(tan(radians)), arctan(tan(degree/180*pi))/pi*180);
end.</lang>Output:
<pre> 7.0710678118654750E-0001 7.0710678118654752E-0001
7.0710678118654755E-0001 7.0710678118654752E-0001
9.9999999999999994E-0001 1.0000000000000000E+0000
7.8539816339744828E-0001 4.5000000000000000E+0001
| |||