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

Line (X1 + 550, 4500)-(X1 + 600, 4650), &HC0FFFF, BF

End Sub

Private Sub Vscroll1_Change()

Label2 =80 – Vscroll1

End Sub

Private Sub Command1_Click()

X0 = 600

Y0 = 4680

X2 = X0

Y2 = Y0

v = 300

g = 9.8

a = Label2

f = a * 3.14 / 180

100 q = 0.00005

t = t + q

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

k = 0.0001

vs = v * Cos(f) – (k – k / (k + v * Cos(f)))

vh = v * Sin(f) – (k – k / (k + v * Sin(f)))

s = vs * t

h = (vh * t – (g * t ^ 2) / 2)

s = v * t * Cos(f)

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

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

Line (X2, Y2)-(X0 + s, Y0 – h), &HFF&

X2 = X0 + s

Y2 = Y0 – h

If h < 0 Then GoTo 200