(11C) Distance, Speed and Time

[Gamo]

Program to calculates the Distance (d), Speed (s), or Time (t)

for a moving body according to the following formulas:

d = st [distance = speed x time]

s = d/t [speed = distance ÷ time]

t = d/s [time = distance ÷ speed]

Given any two of the quantities d, s and t, the program will calculate the third.

---------------------------------------
Remark:

This program was adapted from HP-97 Owner's Handbook page 235

Since HP-11C doesn't have the special "test-clearing feature of data entry"

so this program use Conditional Test to simulate Data Entry Flag.
--------------------------------------
Procedure:

[A] Distance
[B] Speed
[C] Time

Example: Fix 4

Distance = 3500 miles
Speed = 2070.101 miles per hour
Time = ?

3500 [A] display 0.0000
2070.101 [B] display 0.0000
[C] display answer 1.4127 // Time is 1 hour, 41 minutes, 27 seconds
-----------------------------
Speed = 95 kilometers per hour
Time = 48 hours
Distance = ?

95 [B] display 0.0000
48 [C] display 0.0000
[A] display answer 4560.0000 kilometers // Distance
---------------------------
Distance = 1.5 kilometers
Time = 0.03349 // 3 minutes, 34.9 seconds
Speed = ?

1.5 [A] display 0.0000
.03349 [C] display 0.0000
[B] display answer 25.1280 Kilometers per hour // Speed
--------------------------
Program: [ , ] is a decimal point

Code:


LBL A  // Distance
STO 1
,
X≠Y
RTN
RCL 2
RCL 3
x
RTN
-------
LBL B  // Speed
STO 2
,
X≠Y
RTN
RCL 1
RCL 3
÷
RTN
------
LBL C  // Time
->H
STO 3
,
X≠Y
RTN
RCL 1
RCL 2
÷
->H.MS
RTN

Gamo