Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
ПТМ – 409 Караваев. С. В. Вариант 13
10
9
8
6
X
X2,Z
X2=0
5
11
Конец
3
2
7
1
Начало
да
нет
нет
да
6
V=V+
5
mпл,V
4
7
Конец
3
2
V=Vmin
1
Начало
да
“СТРУКТУРА ЦИКЛ ”
Вагон массой m подходит к неподвижной платформе со скоростью V1 и ударяет ее, после чего платформа получает скорость V. Скорость вагона после удара уменьшилась до V2. Вычислить значение массы платформы для ряда значений V: 0,1м/с с шагом 0,25 м/с
где mb = 60т; V1=0,2 м/с ; V2=0,1м/c.
1.2 Входные данные:
Данных, подлежащих вводу нет
Выходные данные:
mпл– функция, вещественное число, V – вещественное число
1.3 Математическая модель.
\1.4 Алгоритм.
1.5 Код программы.
Private Sub Form_Activate()
Dim Mpl, V1, V2, V, Mb As Double
V1 = 0.2
V2 = 0.1
Mb = 60
Cls
V = 0.1
Do While V <= 1.5 + 0.25 / 3
Mpl = (V1 - V2) / V * Mb
Print " V= " & V & " Mпл= " & Mpl
V = V + 0.25
Loop
End Sub
1.6 Отладка кода программы.
Найти расстояние между двумя точками на плоскости, положение которых задано их координатами X1,Y1 и X2,Y2 по формуле:
если - с шагом ; y1=2,5
0 с шагом ; y2=sin2x2.
2.3 Математическая модель.
2.4 Алгоритм.
2.5 Код программы.
Private Sub Form_Activate()
Const Pi = 3.14159265
Dim X1 As Single, X2 As Single, Y1 As Double, Y2 As Single
Dim Z As Single
Cls
Y1 = 2.5
X1 = -Pi / 2
Do Until X1 > Pi / 2
Print Spc(8); "X1= "; X1
X2 = 0
Do
Y2 = Sin(X2) ^ 2
Z = Sqr((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2)
Print " X2= "; Format(X2, "0.0"), "Z= "; Format(Z, "0.0")
X2 = X2 + Pi / 4
Loop While X2 <= 2
X1 = X1 + Pi / 4
Loop
End Sub
1.6 Отладка кода программы.