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

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”

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 цель

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

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

80 KEY(1) ON

ON KEY(1) GOSUB 90

GOTO 80

REM полет