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

ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №4

«СТРУКТУРА ЦИКЛ»

ВАРИАНТ 2

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

3

V=V1

7

6

да

5

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=")

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

1.6 Выполнение проекта:

2.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.

2.2 Описание постановки задачи

Состав входных и выходных данных:

Входные данные:

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

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

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

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

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

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

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

Выходные данные:

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

2.3 Математическое описание задачи:

где постоянная π=3,14.

1

2.4 Схема алгоритма решения задачи:

A, R, y

8

да

нет

7

нет

5

A=A1

да

3

R=R1

начало

2

P, A1, Ak, dA, R1, Rk, dR

R≤Rk

4

2.5 Листинг кода программы:

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

2.6 Выполнение проекта: