OPTION ANGLE DEGREES
PRINT
PRINT "投擲  （ 速さ 25 m/s = 90 km/hr ）"
PRINT
INPUT PROMPT "初速は？ （ 時速で ）":v
INPUT PROMPT "角度は？ ":i
PRINT
LET g=9.80665
LET vv=v/3.6
LET h=(vv*SIN(i))^2/(2*g)
LET r=vv^2*SIN(2*i)/g
LET T=2*vv*SIN(i)/g
PRINT "初速 ＝";vv;"ｍ/秒"
PRINT "最高度 ＝";h;"ｍ"
PRINT "距離 ＝";r;"ｍ"
PRINT "時間 ＝";T;"秒間"
PRINT
END