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

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

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

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

Электровоз трогает с места состав массой m. С каким ускорением движется поезд в зависимости от массы, если коэффициент сопротивления μ=0,005, а сила тяги F_m=400 кН. g=9,8 м/с²?

где 1500≤m≤2000 т с шагом 50 т.

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

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

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

Fm – перменная вещественного типа, mu – перменная вещественного типа, m1 – перменная вещественного типа, mk – перменная вещественного типа, dm – переменная вещественного типа.

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

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

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

С каким ускорением движется поезд в зависимости от массы, если g=9,8 м/с²; μ=0,005; F_m=400 кН; 1500≤m≤2000 т с шагом 50 т?

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

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

Private Sub Command1_Click() Dim a As Single, Fm As Single, mu As Single, m As Single, m1 As Single, mk As Single, dm As Single Const g As Single = 9.81 Fm = InputBox("Fm=") mu = InputBox("mu=") m1 = InputBox("m1=") mk = InputBox("mk=") dm = InputBox("dm=") For m = m1 To mk Step dm a = (Fm - mu * m * g) / m Print "m=" & m & " a=" & a Next End Sub

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

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

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

где постоянная g=9,81; переменные: M, V, W – целого типа; A, B – вещественного типа.

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

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

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

в) функции F (с точность до десятитысячных) и N (с точностью до целых) для соответствующих V и M.

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

V₁=50; V_k=70; ΔV=10; A=0,005; W=50; M₁=2000; M_k=2200; ΔM=100; B=0,0006.

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

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

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

V1 – перменная целого типа, Vk – перменная целого типа, dV – перменная целого типа, A – перменная вещественного типа, W – перменная целого типа, M1 – перменная целого типа, Mk – перменная целого типа, dM – перменная целого типа, B – перменная вещественного типа.

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

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

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

где g=9,81; V₁≤V≤V_k с шагом ΔV; M₁≤M≤M_k с шагом ΔM.

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

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

Private Sub Command1_Click() Dim V As Integer, V1 As Integer, Vk As Integer, dV As Integer, A As Single, W As Integer Dim M As Integer, M1 As Integer, Mk As Integer, dM As Integer, B As Single, F As Single, N As Single Const g As Single = 9.81 V1 = InputBox("Начальное V=") Vk = InputBox("Конечное V=") dV = InputBox("Шаг V=") A = InputBox("A=") W = InputBox("W=") M1 = InputBox("Начальное M=") Mk = InputBox("Конечное M=") dM = InputBox("Шаг M=") B = InputBox("B=") Print "Начальное V=" & V1 & " Конечное V=" & Vk & " Шаг V=" & dV Print "A=" & A & " W=" & W & " B=" & B Print "Начальное M=" & M1 & " Конечное M=" & Mk & " Шаг V=" & dM V = V1 Do While V <= Vk M = M1 Do While M <= Mk F = (0.6 * V * A - W * B) / (W - 0.6 * V) N = M * g * V * (A + F) Print "V=" & V & " M=" & M & " F=" & Format(F, "0.0000") & " N=" & Format(N, "0") M = M + dM Loop V = V + dV Loop End Sub

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