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

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

где V₁≤V≤V_k 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, изменяющегося в пределах A₁≤A≤A_k с шагом ΔA, и R, изменяющегося в пределах R₁≤R≤R_k с шагом ΔR; в) функции y с точность до сотых для соответствующих A и R.

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

P=5,1; A₁=260; A_k=280; ΔA=10; R₁=500; R_k=600; ΔR=50.

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

Входные переменные:

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

A1 – переменная целого типа,

Ak – переменная целого типа,

dA – переменная целого типа,

R1 – переменная целого типа,

Rk – переменная целого типа,

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

Выходные переменные:

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

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

где M₁ ≤ M ≤ M_k с шагом ΔM; K₁ ≤ K ≤ K_k с шагом ΔK.

Где R₁ ≤ R ≤ R_k с шагом ΔR; A₁ ≤ A ≤ A_k с шагом Δ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. Отладка программы