Использование языка программирования Visual Basic для решения математических задач
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: картинки реферат, инновационный менеджмент
| Добавил(а) на сайт: Sevost'janov.
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
Cls
Label1 = Hscroll1
X1 = Hscroll1 * 0.507
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)
Рекомендуем скачать другие рефераты по теме: сочинение тарас, оформление реферата.
Категории:
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
Главная