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