Структура цикл / 9
.docxЗадание №1
1. Постановка задачи
Поезд, двигаясь под уклон, прошел за t секунд путь S и развил скорость V. Как изменяется ускорение поезда и какова была его скорость в начале уклона в зависимости от времени t?
где S = 340 м; V = 19 м/c; 15 ≤ t ≤ 25с шагом 1 с.
Входные данные: t0 – начальное значение параметра цикла, переменная вещественного типа; tk – конечное значение параметра цикла, переменная вещественного типа; dt – шаг значений параметра цикла, переменная вещественного типа; S – пройденный путь, переменная вещественного типа; V – скорость через t секунд, переменная вещественного типа.
Выходные данные: V0 – скорость в начале уклона, переменная вещественного типа; a – ускорение поезда, переменная вещественного типа; t – параметр цикла, переменная вещественного типа.
2. Математическая модель задачи
где t0 ≤ t ≤ tk с шагом Δt.
3. Разработка алгоритма
4. Разработка визуальной части проекта
5. Код приложения
Private Sub Command1_Click()
Dim t0 As Single, tk As Single, dt As Single, S As Single, V As Single, t As Single, a As Single, V0 As Single
t0 = InputBox("t0=")
tk = InputBox("tk=")
dt = InputBox("dt=")
V = InputBox("V=")
S = InputBox("S=")
List1.AddItem ("t V0 a")
For t = t0 To tk Step dt
V0 = 2 * S / t - V
a = (V - V0) / t
List1.AddItem (t & " " & Format(V0, "0.0") & " " & Format(a, "0.0"))
Next
End Sub
6. Отладка приложения
Ручной счет:
t = 15; V0 = 26,3; a = -0,5
t = 16; V0 = 23,5; a = -0,3
t = 17; V0 = 21; a = -0,1
Задание №2
1. Постановка задачи
Объем усеченной пирамиды вычисляется по формуле
,
где S1 и S2 – площади оснований;
H – высота.
Напечатать таблицу для следующих значений переменных: S1 = 0,5 м; 0 ≤ S2 ≤ 0,25 м с шагом 0,05 м; 0,5 ≤ H ≤ 2,0 м с шагом 0,5 м.
Входные данные: S0, H0 – начальные значения параметров цикла, переменные вещественного типа; Sk, Hk – конечные значения параметров цикла, переменные вещественного типа; dS, dH – шаги значений параметров цикла, переменные вещественного типа; S1 – площадь одного из оснований, переменная вещественного типа.
Выходные данные: V – объём усечённой пирамиды, переменная вещественного типа; S2, H – параметры цикла, переменные вещественного типа.
2. Математическая модель задачи
,
где S0 ≤ S2 ≤ Sk с шагом ΔS; H0 ≤ H ≤ Hk м с шагом ΔH.
3. Разработка алгоритма
4. Разработка визуальной части проекта
5. Код приложения
Private Sub Command1_Click()
Dim S0 As Single, Sk As Single, dS As Single, S1 As Single, V As Single, S2 As Single, H0 As Single, Hk As Single, dH As Single, H As Single
S0 = InputBox("S0=")
Sk = InputBox("Sk=")
dS = InputBox("dS=")
S1 = InputBox("S1=")
H0 = InputBox("H0=")
Hk = InputBox("Hk=")
dH = InputBox("dH=")
S1 = InputBox("S1=")
Print "S2", "H", "V"
S2 = S0
Do While S2 <= Sk
H = H0
Do
V = 1 / 3 * H * (S1 + Sqr(S1 * S2) + S2)
Print S2, H, V
H = H + dH
Loop Until H > Hk
S2 = S2 + dS
Loop
End Sub
6. Отладка приложения
Ручной счет:
S2 = 0; H = 0,5; V = 0,08
S2 = 0,05; H = 1; V = 0,24
S2 = 0,1; H = 1,5; V = 0,41