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

INPUT " Для увеличения угла стрельбы нажать F2 "; enter

INPUT " Для уменьшения угла стрельбы нажать F3 "; enter

INPUT " Для остановки решения задачи нажать F5 "; enter

REM построение координат

SCREEN 9:

COLOR 1, 7:

72 x0 = 50

y0 = 300

x1 = 600

y1 = 50

x2 = 50

y2 = 300

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

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

LOCATE 18, 4: PRINT "250"

LOCATE 14, 4: PRINT "500"

LOCATE 10, 4: PRINT "750"

LOCATE 6, 4: PRINT "1000"

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

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

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

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

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

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

LOCATE 23, 19: PRINT "1000"

LOCATE 23, 31: PRINT "2000"

LOCATE 23, 44: PRINT "3000"

LOCATE 23, 56: PRINT "4000"

LOCATE 23, 69: PRINT "5000"