Реферат: Компьютерное моделирование движения тел

LINE (250, 302)-(250, 298), 11

LINE (350, 302)-(350, 298), 11

LINE (450, 302)-(450, 298), 11

LINE (550, 302)-(550, 298), 11

REM ЦЕЛЬ

LINE (x0 + l / 10, 299)-(x0 + l / 10 + 5, 299), 10

LINE (x0 + l / 10, 298)-(x0 + l / 10 + 5, 298), 10

REM показания

REM a-угол стрельбы

LOCATE 1, 6: PRINT "V m/s"

LOCATE 2, 6: PRINT "H m"

LOCATE 2, 24: PRINT "S m"

LOCATE 1, 24: PRINT "T s"

LOCATE 1, 45: PRINT "а"

78 t = 0

n = 0

b = 0

80 KEY(1) ON

ON KEY(1) GOSUB 90

KEY(5) ON

ON KEY(5) GOSUB 300

GOTO 80

REM полет

90 v = 200

g = 9.8

f = a * 3.14 / 180

100 q = .01

t = t + q

REM k - коэффициент сопротивления воздуха