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

X2 = 12820 - a * k

Y2 = 5620

r = 30

n = 1

Dim x(10), y(10)

Randomize (Label1.Caption)

For i = 1 To 50

a = -6.28 * Rnd / 6

rn = r * Rnd

xc = X2 + rn * 9 * Cos(a)

yc = Y2 + rn * 3 * Sin(a)

PSet (xc, yc), &HFFFF80 * Rnd + &HC0C0FF * Rnd

Next

If X0 > 13000 Then Timer1.Interval = 0

If Y0 > 50 Then Timer2.Interval = 1

If Y0 > 100 Then Timer3.Interval = 0

If Label5.Caption > 11500 - (Label1.Caption) Then Timer4.Interval = 1

End Sub

Private Sub Command1_Click()

Rem старт ПТУРС

Timer3.Interval = 1

End Sub

Private Sub Timer2_Timer()

Rem: фейерверк

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

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

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

X1 = Label5.Caption

Y1 = -Label4.Caption