GEARING.bas <;x<;x‡
TEXTSmBa `@»ð d@»ð H S Main ò¾ E® ,e Dö , DöÁXº ò¸ ò¸ E® ,e E
-z ò¸ -B' GEARING.bas
? CAT(87); "SOLVE FOR:"
? "1 - MPH"
? "2 - RPM"
? "3 - GEAR RATIO"
? "4 - TIRE DIAMETER"
INPUT a
IF a = 1 THEN
INPUT "ENTER RPM,TIRE,GEAR:_";r,t,g
m=(r*t)/(g*336)
n = ROUND (m,1)
? "MPH = ";n
ELIF a = 2
INPUT "ENTER MPH,GEAR,TIRE:_";m,g,t
r=(m*g*336)/t
s = ROUND (r,1)
? "RPM = ";s
ELIF a = 3
INPUT "ENTER RPM,TIRE,MPH:_";r,t,m
g=(r*t)/(m*336)
h = ROUND (g,2)
? "GEAR RATIO = ";h
ELIF a = 4
INPUT "ENTER MPH,GEAR,RPM:_";m,g,r
t=(m*g*336)/r
u = ROUND (t,1)
? "TIRE DIAMETER = ";u
FI