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

DIM x(n), y(n)

RANDOMIZE (TIMER)

FOR i = 1 TO n

a = -6.28 * RND / 2

rn = r * RND

xc = x2 + rn * .5 * COS(a)

yc = y2 + rn * 1 * SIN(a)

PSET (xc, yc), 9 + 9 * RND

PRESET (x(i), y(i))

NEXT

END

Приложение 4

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