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

LINE (x2, y2)-(x0 + s, y0 – h), 14

x2 = x0 + s

y2 = y0 – h

IF h < 0 THEN 200

GOTO 100

200 END

END

Приложение 2.

REM ЯДРО

5 INPUT « Ввести угол стрельбы от 5 до 80 град»; a

7 IF a < 5 THEN 10

IF a > 80 THEN 20

GOTO 40

10 INPUT « Угол должен быть >=5»; a

GOTO 7

20 INPUT « Угол должен быть <=80»; a

GOTO 7

40 INPUT « Ввести дальность до цели от 200 до 5000 м»; l

45 IF l < 200 THEN 50

IF l > 5000 THEN 60

GOTO 70

50 INPUT « Расстояние до цели должно быть >=200»; l

GOTO 45

60 INPUT « Расстояние до цели должно быть <=5000»; l

GOTO 45

70 INPUT « Для выстрела нажать F1»; enter

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

SCREEN 9:

x0 = 50