Предыдущая страница реферата | 16  17  18  19  20  21  22  23  24  25  26 | Следующая страница реферата

  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 полет

90     v = 200

    g = 9.8

    f = a * 3.14 / 180

100 q = .0005

    t = t + q

    s = v * t * COS(f) * 2

    h = (v * t * SIN(f) – (g * t ^ 2) / 2) * 5.5

  

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

    x2 = x0 + s / 20

    y2 = y0 – h / 25

  IF h < 0 THEN 200

  GOTO 100

200 REM взрыв

r = 30

n = 500

REM: a угол разлета

REM: r радиус разлета, n количество осколков

REM: коэффициенты 0.5 и 1 определяют ширину и высоту разлета

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

Приложение 3

REM ЯДРО

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

7    IF a < 5 THEN 10

80 THEN 20

     GOTO 40

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

    GOTO 7

Рекомендуем скачать другие рефераты по теме: мировая экономика, титульный курсовой работы.

Предыдущая страница реферата | 16  17  18  19  20  21  22  23  24  25  26 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки