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

Задание №1

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

   1. Словесное описание задачи

Железнодорожный состав проходит первую треть пути со скоростью V₁, а оставшуюся часть пути со скоростью V₂=50 км/ч. Определить скорость на первом участке пути по формуле:

если средняя скорость поезда на всём пути V_ср=37,5 км/ч, 40 км/ч, 45 км/ч, 62,5 км/ч.

2. Состав входных и выходных данных

Входные данные:

V2 – переменная вещественного типа,

Vsr0 – переменная вещественного типа,

Vsrd – переменная вещественного типа, Vsrk – переменная вещественного типа.

Выходные данные:

V1 – переменная вещественного типа.

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

где V_ср0≤V_ср≤ V_срk с шагом V_срd.

3. Схема алгоритма

4. Визуальная часть проекта

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

Private Sub Command1_Click()

Dim V1 As Single, V2 As Single, Vsr As Single, Vsr0 As Single, Vsrd As Single, Vsrk As Single

V2 = InputBox("V2=")

Vsr0 = InputBox("Vsr0=")

Vsrk = InputBox("Vsrk=")

Vsrd = InputBox("Vsrd=")

Print "V2=" & V2

For Vsr = Vsr0 To Vsrk Step Vsrd

V1 = (Vsr - V2) / (3 * V2 - 2 * Vsr)

Print "V1=" & V1 & " (Vsr=" & Vsr & ")"

Next

End Sub

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

Задание №2

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

   1. Словесное описание задачи

Определить ускорение скатывающегося с горки вагона с учётом инерции его вращающихся частей:

где g=9,81 м/с²;

n – число осей вагона /4, 6, 8/;

Q – вес вагона /40, 60, 80, …, 140/ тс.

2. Состав входных и выходных данных

Входные данные: n1 – переменная целого типа,

nk – переменная целого типа,

ns – переменная целого типа, Q1 – переменная вещественного типа,

Qk – переменная вещественного типа,

Qs – переменная вещественного типа.

Выходные данные: a – переменная вещественного типа.

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

где g=9,81 м/с²; n1≤n≤nk с шагом ns; Q1≤Q≤Qk с шагом Qs.

3. Схема алгоритма

4. Визуальная часть проекта

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

Private Sub Command1_Click()

Dim n1 As Integer, nk As Integer, ns As Integer, n As Integer

Dim Q As Single, Q1 As Single, Qk As Single, Qs As Single, a As Single

Const g As Single = 9.81

n1 = InputBox("n1=")

nk = InputBox("nk=")

ns = InputBox("ns=")

Q1 = InputBox("Q1=")

Qk = InputBox("Qk=")

Qs = InputBox("Qs=")

For n = n1 To nk Step ns

For Q = Q1 To Qk Step Qs

a = g / (1 + 0.42 * n / Q)

Print "a=" & a & " (n=" & n & "; Q=" & Q & ")"

Next

Next

End Sub

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

4