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

ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №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, изменяющегося в пределах b₁≤b≤b_k с шагом Δb, и R, изменяющегося в пределах R₁≤R≤R_k с шагом ΔR; в) функции y с точность до сотых для соответствующих b и R.

При решении контрольного примера переменным присвоить значения:

b₁=5; b_k=7; Δb=1; R₁=5; R_k=10; ΔR=2,5.

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

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

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

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

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

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

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

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

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

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

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

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

где π=3,14.

1

начало

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

2

b1, bk, db, R1, Rk, dR

3

b=b1

4

да

5

R=R1

b≤bk

нет

6

xy²<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) Выполнение проекта: