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

Задание №1

1. Постановка задачи:

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

Какое количество условного топлива израсходуют двигатели тепловоза на

расстоянии I при изменении скорости V, если средняя мощность его двигателя P =

2000 кВт, а КПД_η=25%. Теплота сгорания условного топлива g = 2,8*10⁷ Дж/кг.

Отладить программу для значений

l=100 км; 50≤V≤120 км/ч с шагом 10 км/ч.

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

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

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

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

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

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

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

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

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

да

нет

3. 

   V = V0

   V = V+dV

   m

   Конец

   V≤Vk

   Схема алгоритма:

Начало

l, V0, dV, Vk

4. Код приложения:

Private Sub Command1_Click() Dim l As Single, V0 As Single, V As Single, dV As Single, Vk As Single Const g As Single = 28000000, n As Single = 25, P As Single = 2000 l = InputBox("l=") V0 = InputBox("V0=") dV = InputBox("dV=") Vk = InputBox("Vk=") Print "l=" & l & " V0=" & V0 & " dV=" & dV & " Vk=" & Vk For V = V0 To Vk Step dV m = P * l / (V * g * n) Print "V=" & V & " m=" & m Next End Sub

5. Отладка программы:

Задание №2

1. Постановка задачи:

   1. Словестное описание задачи:

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

где постоянная g=9,81; V, S, R – переменные вещественного типа.

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

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

б) аргументов V, изменяющегося в пределах V₁≤V≤V_k с шагом ΔV, и R, изменяющегося в пределах R₁≤R≤R_k с шагом ΔR.

в) Функции H с точностью до сотых для соответствующих V и R.

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

R₁=600; R_k=800; ΔR=100; V₁=60; V_k=140; ΔV=40; S=1520.

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

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

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

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

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

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

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

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

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

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

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

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

Да

3. 

   V1, Vk, dV, R1, Rk, dR, S

   Нет

   V≤Vk

   V=V1

   Начало

   Схема алгоритма:

Да

R≤Rk

Конец

R=R+dR

V, R, H

R=R1

V=V+dV

Нет

4. Код приложения:

Private Sub Command1_Click()

Dim V1 As Single, Vk As Single, R1 As Single, Rk As Single, dR As Single, dV As Single, R As Single, V As Single, S As Single, H As Single

Const g As Single = 9.81

S = InputBox("S=")

V1 = InputBox("V1=")

dV = InputBox("dV=")

Vk = InputBox("Vk=")

R1 = InputBox("R1=")

dR = InputBox("dR=")

Rk = InputBox("Rk=")

Print "S=" & S

Print "V1=" & V1 & " dV=" & dV & " Vk=" & Vk

Print "R1=" & R1 & " dR=" & dR & " Rk=" & Rk

For V = V1 To Vk Step dV

For R = R1 To Rk Step dR

H = S * V ^ 2 / (g * R)

Print "V=" & V & " R=" & R & " H=" & H

Next

Next

End Sub

5. Отладка программы: