|
1 постановка задачи
Как изменяется центростремительное ускорение поезда, движущегося по закруглению дороги со скоростью V, в зависимости от радиуса r?
где V=60 км/ч; 200 £ r £ 1000 м с шагом 100 м.
Входные данные: V, rn, rk, dr
Выходные данные: r, a
2. схема алгоритма
3. Код программы:
Private Sub Command1_Click()
Dim V As Single, r As Single, rn As Single, rk As Single, dr As Single, a As Single
V = InputBox("V=")
rn = InputBox("rn=")
rk = InputBox("rk=")
dr = InputBox("dr=")
For r = rn To rk Step dr
a = V ^ 2 / r
Print "r=" & r & " a=" & Format(a, "0.000")
Next
End Sub
4. отладка программы
Задача 2
1. Постановка задачи
Определить статический и динамический прогибы балки по формулам
= ; fg= fст +
где E = 2×106 кг/см2; J=2500 cм4; Q = 4т;
м с шагом 3м;
м с шагом 1м.
Входные данные: E, J, Q, ln, lk, dl, hn, hk, dh
Выходные данные: l, h, Fst, Fg
2. схема алгоритма
3. Код программы:
Private Sub Command1_Click()
Dim E As Single, J As Single, Q As Single, l As Single, ln As Single, lk As Single, dl As Single, h As Single, hn As Single, hk As Single, dh As Single, fst As Single, fg As Single
E = InputBox("E=")
J = InputBox("J=")
Q = InputBox("Q=")
ln = InputBox("ln=")
lk = InputBox("lk")
dl = InputBox("dl=")
hn = InputBox("hn=")
hk = InputBox("hk=")
dh = InputBox("dh=")
For l = ln To lk Step dl
For h = hn To hk Step dh
fst = Q * l ^ 3 / (48 * E * J)
fg = fst + Sqr(fst ^ 2 + 2 * fst * h)
Print "l=" & l & " h=" & h & " fst=" & Format(fst, "0.000000") & " fg=" & Format(fg, "0.0000")
Next
Next
End Sub
4. отладка программы
Дата добавления: 2015-08-29; просмотров: 68 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
Слово «алкоголь» /«наркомания» в Программе «Двенадцать Шагов» употребляется один раз - в Первом шаге: «Мы признали свое бессилиеперед алкоголем / наркоманией | | | В результате покушения в Сараево убиты эрцгерцог Австро-Венгрии - Фердинанд и его супруга. Убийство совершено боснийским сербом Гаврилой Принципом, восемнадцатилетним студентом, связанным с |