Angle difference between two bearings: Difference between revisions
Content added Content deleted
(Angle difference between two bearings in Run BASIC) |
(Angle difference between two bearings in PureBasic) |
||
Line 3,030: | Line 3,030: | ||
The difference between 60175.7730679555 and 42213.0719235437 is 37.2988555882694 |
The difference between 60175.7730679555 and 42213.0719235437 is 37.2988555882694 |
||
</pre> |
</pre> |
||
=={{header|PureBasic}}== |
|||
{{trans|Python}} |
|||
<lang PureBasic>Procedure.f getDifference (b1.f, b2.f) |
|||
r.f = Mod((b2 - b1), 360) |
|||
If r >= 180: r - 360 |
|||
EndIf |
|||
PrintN(StrF(b1) + #TAB$ + StrF(b2) + #TAB$ + StrF(r)); |
|||
EndProcedure |
|||
If OpenConsole() |
|||
PrintN("Input in -180 to +180 range:") |
|||
getDifference(20.0, 45.0) |
|||
getDifference(-45.0, 45.0) |
|||
getDifference(-85.0, 90.0) |
|||
getDifference(-95.0, 90.0) |
|||
getDifference(-45.0, 125.0) |
|||
getDifference(-45.0, 145.0) |
|||
getDifference(-45.0, 125.0) |
|||
getDifference(-45.0, 145.0) |
|||
getDifference(29.4803, -88.6381) |
|||
getDifference(-78.3251, -159.036) |
|||
PrintN(#CRLF$ + "Input in wider range:") |
|||
getDifference(-70099.74233810938, 29840.67437876723) |
|||
getDifference(-165313.6666297357, 33693.9894517456) |
|||
getDifference(1174.8380510598456, -154146.66490124757) |
|||
getDifference(60175.77306795546, 42213.07192354373) |
|||
Repeat: Until Inkey() <> "" |
|||
EndIf</lang> |
|||
=={{header|Python}}== |
=={{header|Python}}== |