Структура цикл / 7 (2)
.docxЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №4
«СТРУКТУРА ЦИКЛ»
ВАРИАНТ 7
1.1) Словесное описание задачи:
Поезд массой m, движущийся со скоростью V, остановился, пройдя после торможения путь S. Определить, как изменяется величина тормозной силы и время торможения в зависимости от скорости
где m=2000 т; S=550 м; 30≤V≤60 c шагом 5 км/ч.
1.2) Описание постановки задачи:
Состав входных и выходных данных:
Входные данные:
V1 – перменная вещественного типа,
Vk – переменная вещественного типа,
dV – переменная вещественного типа,
m – переменная вещественного типа,
S – переменная вещественного типа.
Выходные данные:
F – переменная вещественного типа,
t – переменная вещественного типа.
1.3) Математическое описание задачи:
Определить, как изменяется величина тормозной силы и время торможения в зависимости от скорости.
где m=2000 т; S=550 м; 30≤V≤60 c шагом 5 км/ч.
1.4) Схема алгоритма решения задачи:
начало
1
2
V1, Vk, dV, m, S
V=V1
3
5
7
6
да
V≤Vk
4
V=V+dV
V, F, t
8
нет
Конец
1.5) Листинг кода программы:
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=") S = InputBox("S=") V1 = InputBox("V1=") Vk = InputBox("Vk=") dV = InputBox("dV=") Print "S=" & S & " m=" & m & " V1=" & V1 & " Vk=" & Vk & " 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
1.6) Выполнение проекта:
2.1) Словесное описание задачи:
Вычислить значения функции по формуле:
где π=3,14; b – целого типа; R – вещественного типа.
На печать выдать значения:
а) входных данных;
б) аргументов b, изменяющегося в пределах b1≤b≤bk с шагом Δb, и R, изменяющегося в пределах R1≤R≤Rk с шагом ΔR; в) функции y с точность до сотых для соответствующих b и R.
При решении контрольного примера переменным присвоить значения:
b1=5; bk=7; Δb=1; R1=5; Rk=10; ΔR=2,5.
2.2) Описание постановки задачи
Состав входных и выходных данных:
Входные данные:
b1 – перменная целого типа,
bk – перменная целого типа,
db – перменная целого типа,
R1 – переменная вещественного типа,
Rk – переменная вещественного типа,
dR – переменная вещественного типа.
Выходные данные:
V – переменная вещественного типа.
2.3) Математическое описание задачи:
где π=3,14.
1
начало
2
b1,
bk,
db,
R1,
Rk,
dR
3
b=b1
4
да
5
R=R1
b≤bk
нет
6
xy2<0
11
да
Конец
нет
7
V
10
8
b, R, V
9
b=b+db
R=R+dR
2.5) Листинг кода программы:
Private Sub Command1_Click() Dim V As Single, b As Integer, b1 As Integer, bk As Integer, db As Integer, R As Single, R1 As Single, Rk As Single, dR As Single Const pi As Single = 3.14 b1 = InputBox("b1=") bk = InputBox("bk=") db = InputBox("db=") R1 = InputBox("R1=") Rk = InputBox("Rk=") dR = InputBox("dR=") Print "b1=" & b1 & " bk=" & bk & " bA=" & db & " R1=" & R1 & " Rk=" & Rk & " dR=" & dR b = b1 Do While b <= bk R = R1 Do While R <= Rk V = 1 / 6 * pi * b * (b ^ 2 + 3 * R ^ 2) Print "b=" & b & " R=" & R & " V=" & Format(V, "0.00") R = R + dR Loop b = b + db Loop End Sub
2.6) Выполнение проекта: