放物線投擲

ランダムな距離の目標を設定し、初速と角度を入力。
グラフィックで表示して、当たったかどうかの判定をする。

10 CLS :RANDOMIZE
20 L= RND 140
30 PRINT "モクヒョウマデノ"
40 PRINT "キョリ：",L
50 PRINT ""
60 PRINT ""
70 PRINT ""
80 INPUT "ｿｸﾄﾞ?"; V
90 INPUT "ｶｸﾄﾞ?"; D
100 VY = V* SIN(D)
110 VX = V* COS(D)
120 XMAX = 2*VX*VY/9.8
130 A=VY/VX
140 B=0.5*9.8/(VX*VX)
150 CLS :WAIT 0
160 LINE (0,39)-(143,39)
170 GCURSOR (L,39)
180 GPRINT "FFFFFF"
190 FOR X=0 to XMAX
200 Y=(A*X-B*X*X)
210 GC. (X, 39-Y)
220 GP. "80"
230 NEXT X
240 LOCATE 0,5
250 PRINT XMAX
260 LOCATE 10,5
270 IF (L-5<XMAX)*(XMAX<L+5) THEN 280 ELSE 300
280 PRINT "   HITS!"
290 GOTO 310
300 PRINT "   MISS!"
310 LOCATE 22,5
320 INPUT Q
330 GOTO 10
430 END