Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
PAGE 4
Вертегел В. ЛТ-403 Вариант 27
«СТРУКТУРА ЦИКЛ»
Начало
omega0
m<=100
=omega0^2/(4*pi*m)
m=m+5
Конец
E
Начало
V1,V2, m3
m2=m2+10
0
1
V4=…, V5=…
2
3
4
5
6
m2<=60
Конец
m1<=60
V4, V5
m1=m1+10
Да
Нет
Да
3
0
5
6
7
9
101
Да
Нет
Нет
2
4
m=25
8
4
1
m1=20
m2=20
Задание 1
Маховик , вращаясь с постоянной угловой скоростью o был отключен от двигателей и , сделав m оборотов, остановился .Найти угловое ускорение маховика.
Отладить программу для значений:
o = 650 рад/с; об. с шагом 5об.
Задание 2
Вагон массы m1 c автоматической сцепкой , движущийся со скоростью 1 , догоняет такой же вагон массы m2 , движущийся со скоростью 2 , и сцепляется с ним . Двигаясь дальше вместе оба вагона сталкиваются со стоящим на рельсах третьим вагоном массы m3 .Найти скорости движения вагонов на разных участках пути . Трением пренебречь.
4; 5 ,
где 1 = 12 м/с; 2 = 6 м/с; m3 = 40 т;
20 60т;
20 60т с шагом 10т.
Private Sub Command1_Click()
Dim omega0 As Single
Dim m As Single
Dim E As Single
Const pi = 3.141596
omega0 = InputBox("BBEDITE OMEGA 0")
m = 25
Cls
Do While m <= 100
E = omega0 ^ 2 / (4 * pi * m)
Print "E=" & E
m = m + 5
Loop
End Sub
Private Sub Command1_Click()
Dim V1 As Single
Dim V2 As Single
Dim m3 As Single
Dim m1 As Single
Dim m2 As Single
Dim V4 As Single
Dim V5 As Single
V1 = InputBox("BBEDITE V1")
V2 = InputBox("BBEDITE V2")
m3 = InputBox("BBEDITE m3")
Cls
For m1 = 20 To 60 Step 10
m2 = 20
Do
V4 = m1 * V1 * m2 * V2 / (m1 + V1)
V5 = (m1 + m2) * V4 / (m1 + m2 + m3)
Print "V4=" & V4; Tab; "V5=" & V5
m2 = m2 + 10
Loop While m2 <= 60
Next
End Sub