Length of an arc between two angles: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add APL) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 105: | Line 105: | ||
43.6332313 |
43.6332313 |
||
</pre> |
</pre> |
||
=={{header|BASIC}}== |
|||
<lang BASIC>10 DATA 10, 10, 120 |
|||
20 READ R, A1, A2 |
|||
30 GOSUB 100 |
|||
40 PRINT A |
|||
50 END |
|||
100 REM Calculate length of arc of radius R, angles A1 and A2 |
|||
110 A = ATN(1)*R*(360-ABS(A1-A2))/45 |
|||
120 RETURN</lang> |
|||
{{out}} |
|||
<pre> 43.6332</pre> |
|||
=={{header|C}}== |
=={{header|C}}== |