Структура цикл / 16

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

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

ВАРИАНТ 16

1.1 Словесное описание задачи:

Скорость истечения груза из горизонтального отверстия бункера равна:

где λ – коэффициент истечения; F - порщать поперечного сечения потока; P - периметр сечения; L - угол наклона желоба, отклоняющего поток и создающего подпор.

Отладить программу для значений λ=0,6; F=0,36 м2; P=2,4 м2; 30°≤L≤90°. Результаты напечатать в виде таблицы.

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

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

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

Lambda – перменная вещественного типа, F – переменная вещественного типа, P – переменная вещественного типа, L1 – переменная вещественного типа, Lk – переменная вещественного типа.

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

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

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

Определить скорость истечения груза из горизонтального отверстия бункера, если L₁°≤L≤L_k°

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

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

Private Sub Command1_Click() Dim Lambda As Single, F As Single, P As Single, L As Single, L1 As Single, Lk As Single, V As Single Const Pi As Single = 3.14 Lambda = InputBox("Lambda=") F = InputBox("F=") P = InputBox("P=") L1 = InputBox("L1=") Lk = InputBox("Lk=") Print "F=" & F & " P=" & P & " L1=" & L1 & " Lk=" & Lk For L = L1 To Lk V = 5.9 * Lambda * Sqr(F / P * Sin(L * Pi / 180)) Print "L=" & L & " V=" & V Next End Sub

2.1 Словесное описание задачи:

Вычислить значения функции по формуле:

где: постоянная A=1,15; V, W – переменные целого типа.

На печать выдать значения:

а) входных данных;

б) аргументов V, изменяющегося в пределах V₁≤V≤V_k с шагом ΔV, и W, изменяющегося в пределах W₁≤W≤W_k с шагом ΔW; в) функции L с точность до сотых для соответствующих V и W.

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

V₁=20; V_k=40; ΔV=10; W₁=50; W_k=70; ΔW=10.

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

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

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

V1 – переменная целого типа, Vk – переменная целого типа, dV – переменная целого типа, W1 – переменная целого типа, Wk – переменная целого типа, dW – переменная целого типа.

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

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

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

где постоянная A=1,15; V₁≤V≤V_k с шагом ΔV; W₁≤W≤W_k с шагом ΔW.

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

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

Private Sub Command1_Click() Dim V As Integer, V1 As Integer, dV As Integer, Vk As Integer, W As Integer, W1 As Integer, dW As Integer, Wk As Integer, L As Single Const A As Single = 1.15 V1 = InputBox("V1=") Vk = InputBox("Vk=") dV = InputBox("dV=") W1 = InputBox("W1=") Wk = InputBox("Wk=") dW = InputBox("dW=") Print "V1=" & V1 & " Vk=" & Vk & " dV=" & dV & " W1=" & W1 & " Wk=" & Wk & " dW=" & dW V = V1 Do While V <= Vk W = W1 Do While W <= Wk L = 8 * V ^ 2 * W ^ 2 / (A * (V + W)) Print "V=" & V & " W=" & W & " L=" & Format(L, "0.00") W = W + dW Loop V = V + dV Loop End Sub