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



LOCATE 1, 24: PRINT "T s"

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 = .01

    t = t + q

REM k коэффициент сопротивления воздуха

    k = .016

    vs = v * COS(f) - (k - k / (k + v * COS(f)))

    vh = v * SIN(f) - (k - k / (k + v * SIN(f)))

    s = vs * t * 2

    h = (vh * t - (g * t ^ 2) / 2) * 5.5

   v = SQR(vs ^ 2 + vh ^ 2)

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

    x2 = x0 + s / 20

    y2 = y0 - h / 25

LOCATE 1, 12: PRINT v

LOCATE 2, 12: PRINT h / 5.5

LOCATE 2, 28: PRINT s / 2

LOCATE 1, 28: PRINT t

  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

Приложение 4

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 | Следующая страница реферата

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