Angle difference between two bearings: Difference between revisions
Content deleted Content added
m →{{header|REXX}}: added the REXX language. |
m →{{header|REXX}}: used a different delimiter for a quoted string. |
||
| Line 179: | Line 179: | ||
/*──────────────────────────────────────────────────────────────────────────────────────*/ |
/*──────────────────────────────────────────────────────────────────────────────────────*/ |
||
show: procedure; parse arg a,b; $='º' /*obtain the 2 angles (are in degrees).*/ |
show: procedure; parse arg a,b; $='º' /*obtain the 2 angles (are in degrees).*/ |
||
say right(a,5)$ ' -'right(b,5)$ |
say right(a,5)$ ' -'right(b,5)$ " ───► "right(((((b-a)//360)+540)//360)-180, 5)$ |
||
return d /* [↑] display the angular difference.*/</lang> |
return d /* [↑] display the angular difference.*/</lang> |
||
'''output''' |
'''output''' |
||
<pre> |
<pre> |
||
| Line 190: | Line 190: | ||
-45º - 145º ───► -170º |
-45º - 145º ───► -170º |
||
</pre> |
</pre> |
||
=={{header|zkl}}== |
=={{header|zkl}}== |
||