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

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

PRINT a, l

END

Данный отрезок программы, используя условные операторы (IF, THEN), позволяет присвоить переменным a(угол) и l(расстояние), необходимые значения, жестко ограниченные по условию задачи.

Допишем программу с 70-й строки используя за основу программу полета тела, изменив масштаб координат и определив место цели на координате Х:

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

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

SCREEN 9:

x0 = 50

y0 = 300

x1 = 600

y1 = 50

x2 = 50