Реферат: Использование языка программирования Visual Basic для решения математических задач

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