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

Задание 1

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

По прямому участку пути двигаются три вагона массой m₁, m₂, m₃. Какое максимальное число столкновений между ними может произойти?

] [ – целая часть числа; m₁ = 100 т; m₃ = 100 т; 10 ≤ m₂ ≤ 120 т с шагом 10 т.

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

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

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

где ] [ – целая часть числа; m₀ ≤ m₂ ≤ m_k с шагом Δm.

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

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

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

Private Sub Command1_Click()

Dim a As Single, Nmax As Single, m1 As Single, m3 As Single

Dim m2 As Single, m0 As Single, dm As Single, mk As Single

Const pi As Single = 3.14

m0 = InputBox("m2 начальное =")

mk = InputBox("m2 конечное =")

dm = InputBox("Шаг изменения m2 =")

m1 = InputBox("m1 =")

m3 = InputBox("m3 =")

List1.AddItem ("m2 Nmax")

For m2 = m0 To mk Step dm

a = Sqr(m1 * m2 / ((m1 + m2) * (m2 + m3)))

Nmax = -(pi / (pi / 2 + Atn(a / Sqr(1 - a ^ 2)))) \ 1

List1.AddItem (m2 & " " & Nmax)

Next

End Sub

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

Ручной счет: при m₂ = 10; N_max = 2; при m₂ = 50; N_max = 2; при m₂ = 100; N_max = 1;

Задание 2

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

Поезд, имея скорость V0, стал двигаться равнозамедленно и через время t снизил скорость до V. С каким ускорением двигался поезд на этом участке? Какой он при этом прошел путь?

где V = 40 км/ч; 40 ≤ V₀ ≤ 120 км/ч с шагом 20 км/ч; 5 ≤ t ≤ 15 с с шагом 2,5 с.

Входные данные: V – конечная скорость, переменная вещественного типа; t0, V00 – начальные значения параметров цикла, вещественные переменные; tk, V0k – конечные значения параметров цикла, вещественные переменные; dt, dV0 – шаги изменения параметров цикла, вещественные переменные.

Выходные данные: t, V0 – параметры цикла, вещественные переменные; a, S – значения функций, вещественные переменные.

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

где V₀₀ ≤ V₀ ≤ V_0k с шагом ΔV₀; t₀ ≤ t ≤ t_k с шагом Δt₀.

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

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

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

Private Sub Command1_Click()

Dim V0 As Single, V00 As Single, V0k As Single, dV0 As Single

Dim t As Single, t0 As Single, tk As Single, dt As Single

Dim a As Single, S As Single, V As Single

V00 = InputBox("V0 начальное =")

V0k = InputBox("V0 конечное =")

dV0 = InputBox("Шаг изменения V0 =")

t0 = InputBox("t начальное =")

tk = InputBox("t конечное =")

dt = InputBox("Шаг изменения t =")

V = InputBox("V =")

Print "V0", "t", "S", "a"

V0 = V00

Do While V0 <= V0k

S = (V0 + V) / 2

t = t0

Do

a = (V - V0) / t

Print V0, t, S, a

t = t + dt

Loop Until t > tk

V0 = V0 + dV0

Loop

End Sub

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

Ручной счет: при V₀ = 40; t = 5; S = 40; a = 0; при V₀ = 50; t = 5; S = 50; a = -4; при V₀ = 100; t = 15; S = 70; a = -4;