Anonymous user
Trigonometric functions: Difference between revisions
Inserted COBOL example with matching output.
(adding gap) |
(Inserted COBOL example with matching output.) |
||
Line 539:
0.7853981633974483 45.0
0.7853981633974483 45.0
=={{header|COBOL}}==
<lang cobol> IDENTIFICATION DIVISION.
PROGRAM-ID. Trig.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Pi-Third USAGE COMP-2.
01 Degree USAGE COMP-2.
01 60-Degrees USAGE COMP-2.
01 Result USAGE COMP-2.
PROCEDURE DIVISION.
COMPUTE Pi-Third = FUNCTION PI / 3
DISPLAY "Radians:"
DISPLAY " Sin(π / 3) = " FUNCTION SIN(Pi-Third)
DISPLAY " Cos(π / 3) = " FUNCTION COS(Pi-Third)
DISPLAY " Tan(π / 3) = " FUNCTION TAN(Pi-Third)
DISPLAY " Asin(0.5) = " FUNCTION ASIN(0.5)
DISPLAY " Acos(0.5) = " FUNCTION ACOS(0.5)
DISPLAY " Atan(0.5) = " FUNCTION ASIN(0.5)
COMPUTE Degree = FUNCTION PI / 180
COMPUTE 60-Degrees = Degree * 60
DISPLAY "Degrees:"
DISPLAY " Sin(60°) = " FUNCTION SIN(60-Degrees)
DISPLAY " Cos(60°) = " FUNCTION COS(60-Degrees)
DISPLAY " Tan(60°) = " FUNCTION TAN(60-Degrees)
COMPUTE Result = FUNCTION ASIN(0.5) / 60
DISPLAY " Asin(0.5) = " Result
COMPUTE Result = FUNCTION ACOS(0.5) / 60
DISPLAY " Acos(0.5) = " Result
COMPUTE Result = FUNCTION ATAN(0.5) / 60
DISPLAY " Atan(0.5) = " Result
GOBACK
.</lang>
Output:
<pre>
Radians:
Sin(π / 3) = +0.86602540368613976
Cos(π / 3) = +0.50000000017025856
Tan(π / 3) = 1.732050806782486241
Asin(0.5) = +0.52359877559829897
Acos(0.5) = 1.04719755119659785
Atan(0.5) = +0.52359877559829897
Degrees:
Sin(60°) = +0.86602538768613932
Cos(60°) = +0.50000002788307131
Tan(60°) = 1.732050678782493636
Asin(0.5) = 0.008726645999999999
Acos(0.5) = 0.017453291999999999
Atan(0.5) = 0.007727460000000000
</pre>
=={{header|Common Lisp}}==
| |||