Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата



   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     END

 END

Функция KEY(1) устанавливает, что дальнейшее выполнение программы начнется с нажатия функциональной клавиши F1. Логично предположить, что KEY(2) устанавливает F2, KEY(3) – F3 и т.д.

Для большего эффекта нужно с 200 –й строки дописать программу вставив еще несколько строк:

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)

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

Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

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