Структура цикл / 27

Задание 1

1. Постановка задачи

Маховик, вращаясь с постоянной угловой скоростью ω_o был отключен от двигателей и, сделав m оборотов, остановился. Найти угловое ускорение маховика.

Отладить программу для значений:

ω_o = 650 рад/с; 25 ≤ m ≤ 100 об. с шагом 5 об.

Входные данные: wo – угловая скорость, переменная вещественного типа, m0 – начальное значение параметра цикла, переменная вещественного типа, mk – конечное значение параметра цикла, переменная вещественного типа, dm – шаг изменения параметра цикла, переменная вещественного типа.

Выходные данные: e – значение функции, переменная, вещественного типа.

2. Математическая модель задачи

3. Разработка алгоритма

4. Разработка визуальной части проекта

5. Код приложения

Private Sub Command1_Click()

Dim wo As Single, m0 As Single, mk As Single, dm As Single, m As Single, e As Single

Const pi As Single = 3.1415926

wo = InputBox("wo=")

m0 = InputBox("m0=")

mk = InputBox("mk=")

dm = InputBox("dm=")

For m = m0 To mk Step dm

e = wo ^ 2 / (4 * pi * m)

List1.AddItem ("m = " & m & " e = " & Format(e, "0.00"))

Next

End Sub

6. Отладка программы

Ручной счёт: m = 30; ε = 1120,72 m = 50; ε = 672,43 m = 90; ε = 353,91

Задание 2

1. Постановка задачи

Вагон массой m₁ c автоматической сцепкой, движущийся со скоростью V₁, догоняет такой же вагон массой m₂, движущийся со скоростью V₂, и сцепляется с ним. Двигаясь дальше вместе, оба вагона сталкиваются со стоящим на рельсах третьим вагоном массой m₃. Найти скорости движения вагонов на разных участках пути. Трением пренебречь.

где V₁ = 12 м/с; V₂ = 6 м/с; m₃ = 40 т; 20 ≤ m₁ ≤ 60 т с шагом 10 т; 20 ≤ m₂ ≤ 60 т с шагом 10 т.

Входные данные: V1, V2 – скорости вагонов, переменная вещественного типа, m3 – масса 3 вагона, переменная вещественного типа, m10, m20 – начальное значение параметра цикла, переменная вещественного типа, m1k, m2k – конечное значение параметра цикла, переменная вещественного типа, dm1, dm2 – шаг изменения параметра цикла, переменная вещественного типа.

Выходные данные: V4, V5 – скорости на разных участках, переменная вещественного типа.

2. Математическая модель задачи

3. Разработка алгоритма

4. Разработка визуальной части проекта

5. Код приложения

Private Sub Command1_Click()

Dim V1 As Single, V2 As Single, V4 As Single, V5 As Single, m3 as Single

Dim m10 As Single, m1k As Single, dm1 As Single, m1 As Single

Dim m20 As Single, m2k As Single, dm2 As Single, m2 As Single

V1 = InputBox("V1=")

V2 = InputBox("V2=")

m3 = InputBox("m3=")

m10 = InputBox("m10=")

m1k = InputBox("m1k=")

dm1 = InputBox("dm1=")

m20 = InputBox("m20=")

m2k = InputBox("m2k=")

dm2 = InputBox("dm2=")

Print "m1", "m2", "V4", "V5"

m1 = m10

Do While m1 <= m1k

m2 = m20

Do

V4 = m1 * V1 * m2 * V2 / (m1 + m2)

V5 = (m1 + m2) * V4 / (m1 + m2 + m3)

Print m1, m2, V4, V5

m2 = m2 + dm2

Loop Until m2 > m2k

m1 = m1 + dm1

Loop

End Sub

6. Отладка программы

Ручной счёт: m₁ = 20; m₂ = 40; V₄ = 960; V₅ = 576 m₁ = 40; m₂ = 20; V₄ = 960; V₅ = 576 m₁ = 50; m₂ = 50; V₄ = 1800; V₅ = 1285,71