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

y2 = 300

REM координата Y

LINE (x0, y0)-(x0, y1), 12

LOCATE 18, 4: PRINT “10”

LOCATE 14, 4: PRINT “20”

LOCATE 10, 4: PRINT “30”

LINE (48, 245)-(52, 245), 11

LINE (48, 190)-(52, 190), 11

LINE (48, 135)-(52, 135), 11

REM координата X

LINE (x0, y0)-(x1, y0), 12

LOCATE 23, 19: PRINT “50”

LOCATE 23, 31: PRINT “100”

LOCATE 23, 44: PRINT “150”

LOCATE 23, 56: PRINT “200”

LOCATE 23, 69: PRINT “250”

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

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 полет

v = 50

g = 9.8

a = 30

f = a * 3.14 / 180

100 q = 1

t = t + q

s = v * t * COS(f) * 2