Структура цикл / 2 (3)
.docx
Задание №1
1.Постановка задачи
1.1 Словесное описание задачи
Поезд массой m, движущийся со скоростью V, остановился, пройдя после торможения путь S. Определить, как изменяется величина тормозной силы и время торможения в зависимости от скорости
где m=2000 т; S=550 м; 30≤V≤60 c шагом 5 км/ч.
1.2. Состав входных и выходных переменных
Входные переменные:
V1 – переменная вещественного типа,
Vk – переменная вещественного типа,
dV – переменная вещественного типа,
m – переменная вещественного типа,
S – переменная вещественного типа.
Выходные переменные:
F – переменная вещественного типа,
t – переменная вещественного типа.
2.Математическая модель
где V1≤V≤Vk c шагом ΔV.
3. Схема алгоритмa
4. Код программы
Private Sub Command1_Click()
Dim V As Single, V1 As Single, Vk As Single, dV As Single, m As Single, S As Single, F As Single, t As Single
m = InputBox("m=")
Print "m=" & m
S = InputBox("S=")
Print "S=" & S
V1 = InputBox("V1=")
Print "V1=" & V1
Vk = InputBox("Vk=")
Print "Vk=" & Vk
dV = InputBox("dV=")
Print "dV=" & dV
For V = V1 To Vk Step dV
F = V ^ 2 * m / (2 * S)
t = 2 * S / V
Print "V=" & V & " F=" & F & " t=" & t
Next
End Sub
5. Отладка программы
Задание №2
1.Постановка задачи
1.1Словесное описание задачи
Вычислить значения функций по формулам:
где постоянная π=3,14; переменные A, R – целого типа; P – вещественного типа.
На печать выдать значения:
а) входных данных;
б) аргументов A, изменяющегося в пределах A1≤A≤Ak с шагом ΔA, и R, изменяющегося в пределах R1≤R≤Rk с шагом ΔR; в) функции y с точность до сотых для соответствующих A и R.
При решении контрольного примера принять:
P=5,1; A1=260; Ak=280; ΔA=10; R1=500; Rk=600; ΔR=50.
1.2. Состав входных и выходных переменных
Входные переменные:
P – переменная вещественного типа,
A1 – переменная целого типа,
Ak – переменная целого типа,
dA – переменная целого типа,
R1 – переменная целого типа,
Rk – переменная целого типа,
dR – переменная целого типа.
Выходные переменные:
y – переменная вещественного типа.
2.Математическая модель
где M1 ≤ M ≤ Mk с шагом ΔM; K1 ≤ K ≤ Kk с шагом ΔK.
Где R1 ≤ R ≤ Rk с шагом ΔR; A1 ≤ A ≤ Ak с шагом ΔA.
3.Схема алгоритма
4. Код программы
Private Sub Command1_Click()
Dim P As Single, A As Integer, A1 As Integer, Ak As Integer, dA As Integer, R As Integer, R1 As Integer, Rk As Integer, dR As Integer, y As Single
Const pi As Single = 3.14
P = InputBox("P=")
Print "P=" & P
A1 = InputBox("A1=")
Ak = InputBox("Ak=")
dA = InputBox("dA=")
Print "A1=" & A1 & " Ak=" & Ak & " dA=" & dA
R1 = InputBox("R1=")
Rk = InputBox("Rk=")
dR = InputBox("dR=")
Print "R1=" & R1 & " Rk=" & Rk & " dR=" & dR
A = A1
Do While A <= Ak
R = R1
Do While R <= Rk
y = 32 * A * P / (pi * R)
Print "A=" & A & " R=" & R & " y=" & Format(y, "0.00")
R = R + dR
Loop
A = A + dA
Loop
End Sub
5. Отладка программы