Структура цикл / 9 (2)

Задание №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.Математическая модель

где t₁ ≤ t ≤ t_k с шагом Δ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, меняющегося в пределах M₁ ≤ M ≤ M_k с шагом ΔM, и K, меняющегося в пределах K₁ ≤ K ≤ K_k с шагом ΔK.

в) функций A и V с точностью до тысячных для соответствующих M и K.

При решении контрольного примера принять:

k_p = 9,81; F = 34*10³; M₁ = 2*10⁶; M_k = 4*10⁶; ΔM = 10⁶; K₁ = 0,004; K_k = 0,008; ΔK = 0,002; T=60.

1.2. Состав входных и выходных переменных

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

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

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

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

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

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

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

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

T – переменная целого типа.

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

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

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

где M₁ ≤ M ≤ M_k с шагом ΔM; K₁ ≤ K ≤ K_k с шагом Δ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

Print

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. Отладка программы