Структура цикл / 9 (2)
.docx
Задание №1
1.Постановка задачи
1.1 Словесное описание задачи
Поезд, двигаяся под уклон, прошёл за t секунд путь S и развил скорость V. Как изменится ускорение поезда и какова была его скорость в начале уклона в зависимости от времени t?
где S = 340 м; V = 19 м/с; 15 ≤t≤ 25 с шагом 1 с.
1.2. Состав входных и выходных переменных
Входные переменные: S – переменная вещественного типа,
V – переменная вещественного типа,
t1 – переменная вещественного типа,
tk – переменная вещественного типа,
dt – переменная вещественного типа.
Выходные переменные: V0 – переменная вещественного типа,
a – переменная вещественного типа.
2.Математическая модель
где t1 ≤ t ≤ tk с шагом Δt.
3. Схема алгоритмa
4. Код программы
Private Sub Command1_Click()
Dim S As Single, V As Single, t As Single, t1 As Single, tk As Single, dt As Single, V0 As Single, a As Single
S = InputBox("Введите S")
V = InputBox("Введите V")
t1 = InputBox("Введите t1")
tk = InputBox("Введите tk")
dt = InputBox("Введите dt")
Print "S=" & S & " V=" & V & " t1=" & t1 & " tk=" & tk & " dt=" & dt
For t = t1 To tk Step dt
V0 = 2 * S / t - V
a = (V - V0) / t
Print "t=" & t & " V0=" & V0 & " a=" & a
Next
End Sub
5. Отладка программы
Задание №2
1.Постановка задачи
1.1Словесное описание задачи
Вычислить значения функции по формуле:
где постоянная g=9,81; переменные T – целого типа; остальные – вещественного типа.
На печать выдать значения:
а) входных данных;
б) аргументов M, меняющегося в пределах M1 ≤ M ≤ Mk с шагом ΔM, и K, меняющегося в пределах K1 ≤ K ≤ Kk с шагом ΔK.
в) функций A и V с точностью до тысячных для соответствующих M и K.
При решении контрольного примера принять:
kp = 9,81; F = 34*103; M1 = 2*106; Mk = 4*106; ΔM = 106; K1 = 0,004; Kk = 0,008; ΔK = 0,002; T=60.
1.2. Состав входных и выходных переменных
Входные переменные: kp – переменная вещественного типа,
F – переменная вещественного типа,
M1 – переменная вещественного типа,
Mk – переменная вещественного типа,
dM – переменная вещественного типа,
K1 – переменная вещественного типа,
Kk – переменная вещественного типа,
dK – переменная вещественного типа,
T – переменная целого типа.
Выходные переменные: A – переменная вещественного типа,
V – переменная вещественного типа.
2.Математическая модель
где M1 ≤ M ≤ Mk с шагом ΔM; K1 ≤ K ≤ Kk с шагом ΔK.
3.Схема алгоритма
4. Код программы
Private Sub Command1_Click()
Dim kp As Single, F As Single, M1 As Single, Mk As Single, dM As Single, K1 As Single, Kk As Single, dK As Single, T As Integer, A As Single, V As Single
Const g As Single = 9.81
kp = InputBox("Введите kp")
F = InputBox("Введите F")
M1 = InputBox("Введите M1")
Mk = InputBox("Введите Mk")
dM = InputBox("Введите dM")
K1 = InputBox("Введите K1")
Kk = InputBox("Введите Kk")
dK = InputBox("Введите dK")
T = InputBox("Введите T")
Print "kp=" & kp & " F=" & F & " T=" & T
Print "M1=" & M1 & " Mk=" & Mk & " dM=" & dM
Print "K1=" & K1 & " Kk=" & Kk & " dK=" & dK
For M = M1 To Mk Step dM
For K = K1 To Kk Step dK
A = (kp * F - M * K * g) / M
V = A * T
Print "M=" & M & " K=" & K & " A=" & Format(A, "0.000") & " V=" & Format(V, "0.000")
Next
Next
End Sub
5. Отладка программы