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

NEXT

END

Приложение 3

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

y0 = 300

x1 = 600

y1 = 50

x2 = 50

y2 = 300