Angle difference between two bearings: Difference between revisions

=={{header|BASIC}}==

==={{header|QBasic}}===

{{works with|QBasic|1.1}}

{{works with|QuickBasic|4.5}}

<lang qbasic>SUB getDifference (b1!, b2!)

r! = (b2 - b1) MOD 360!

IF r >= 180! THEN r = r - 360!

PRINT USING "#######.###### #######.###### #######.######"; b1; b2; r

END SUB

PRINT " Bearing 1 Bearing 2 Difference"

CALL getDifference(20!, 45!)

CALL getDifference(-45!, 45!)

CALL getDifference(-85!, 90!)

CALL getDifference(-95!, 90!)

CALL getDifference(-45!, 125!)

CALL getDifference(-45!, 145!)

CALL getDifference(-45!, 125!)

CALL getDifference(-45!, 145!)

CALL getDifference(29.4803, -88.6381)

CALL getDifference(-78.3251, -159.036)

CALL getDifference(-70099.74233810938#, 29840.67437876723#)

CALL getDifference(-165313.6666297357#, 33693.9894517456#)

CALL getDifference(1174.838051059846#, -154146.6649012476#)</lang>

==={{header|True BASIC}}===

<lang qbasic>SUB getdifference (b1,b2)

LET r = REMAINDER(b2-b1, 360.0)

IF r >= 180.0 THEN LET r = r-360.0

PRINT USING "#######.###### #######.###### #######.######": b1, b2, r

END SUB

PRINT " Bearing 1 Bearing 2 Difference"

CALL getdifference(20.0, 45.0)

CALL getdifference(-45.0, 45.0)

CALL getdifference(-85.0, 90.0)

CALL getdifference(-95.0, 90.0)

CALL getdifference(-45.0, 125.0)

CALL getdifference(-45.0, 145.0)

CALL getdifference(-45.0, 125.0)

CALL getdifference(-45.0, 145.0)

CALL getdifference(29.4803, -88.6381)

CALL getdifference(-78.3251, -159.036)

CALL getdifference(-70099.74233810938, 29840.67437876723)

CALL getdifference(-165313.6666297357, 33693.9894517456)

CALL getdifference(1174.8380510598456, -154146.66490124757)

END</lang>