Code: Select all
dim fr as integer
dim fe as integer
dim ama as integer
dim ima as integer
dim eff as integer
dim choice as integer
print "What Simple Machine do you want to calculate MA for?"
print "1. Inclined Plane"
input "Choice: " , choice
if choice = 1 then
dim L as integer
dim H as integer
input "What is the Length of the ramp? " , L
input "What is the Height of the ramp? " , H
input "What is Fr? " , fr
input "What is Fe? " , fe
ima=L/H
ama=fr/fe
eff=(ama/ima)*100
cls
print "Results"
print "IMA: " ; ima ; ":1"
print "AMA: " ; ama ; ":1"
print "Efficiency: " ; eff ; "%"
sleep
endif
sleep