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

Задание №1

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

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

Поезд массой m трогается с места и двигается по горизонтальному пути под действием постоянной силы тяги локомотива F. Коэффициент сопротивления движению K. Определить ускорение поезда и скорость, достигнутую им через t секунд после начала движения, если

Где F=4000Н; k=0,005; t=5c; g=9,81м/с²;

2000≤m≤4000 т. с шагом 250 т.

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

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

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

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

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

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

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

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

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

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

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

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

Где F=4000Н; k=0,005; t=5c; g=9,81м/с²;

2000≤m≤4000 т. с шагом 250 т.

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

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

Private Sub Command1_Click()

Dim F As Single, k As Single, t As Single, m As Single, m1 As Single, mk As Single, dm As Single, a As Single, V As Single

Const g As Single = 9.81

F = InputBox("F=")

k = InputBox("k=")

t = InputBox("t=")

m1 = InputBox("m1=")

mk = InputBox("mk=")

dm = InputBox("dm=")

Print "F=" & F & " k=" & k & " t=" & t & " m1=" & m1 & " mk=" & mk & " dm=" & dm

For m = m1 To mk Step dm

a = (F - k * m * g) / m

V = a * t

Print "m=" & m & " a=" & a & " V=" & V

Next

End Sub

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

Задание №2

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

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

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

где постоянные π=3,14; C целого типа; L, R – вещественного типа.

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

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

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

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

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

R₁=0,003; R_k=0,004; ΔR=0,0005; L=0,002; C₁=48; C_k=72 ΔC=12.

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

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

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

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

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

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

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

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

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

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

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

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

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

где постоянные π=3,14; C целого типа; L, R – вещественного типа.

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

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

Private Sub Command1_Click()

Dim R As Single, R1 As Single, Rk As Single, dR As Single, L As Single, C As Integer, C1 As Integer, Ck As Integer, dC As Integer, W As Single, V As Single

Const pi As Single = 3.14

R1 = InputBox("R1=")

Rk = InputBox("Rk=")

dR = InputBox("dR=")

L = InputBox("L=")

C1 = InputBox("C1=")

Ck = InputBox("Ck=")

dC = InputBox("dC=")

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

Print "C1=" & C1 & " Ck=" & Ck & " dC=" & dC

For R = R1 To Rk Step dR

For C = C1 To Ck Step dC

W = 1 / (2 * pi * L * C)

V = W - R / (2 * L)

Print "R=" & R & " C=" & C & " W=" & W & " V=" & V

Next

Next

End Sub

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