цикл

Буслаев Василий УПП-401 Лабораторная работа №3 вариант 4 структура « цикл »

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. Постановка задачи

Определить статический и динамический прогибы балки по формулам

=; f_g= f_ст +

где E = 210⁶ кг/см² ; J=2500 cм⁴ ; 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. отладка программы