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

Задание №1.

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

Определить массу состава, который может везти тепловоз с ускорением a при различных коэффициентах сопротивления μ, если он развивает максимальное тяговое усилие F_t?

где а = 0,1 м/c²; F_t = 300 кН; g = 9,8 м/c²;

0,001 ≤ μ ≤ 0,01 с шагом 0,001.

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

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

Ft – максимальное тяговое усилие, переменная вещественного типа,

mu0 – коэффициентах сопротивления начальный, переменная вещественного типа,

muk – коэффициентах сопротивления конечный, переменная вещественного типа,

dmu – коэффициентах сопротивления шаг, переменная вещественного типа.

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

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

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

3. Разработка алгоритма.

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

Private Sub Command1_Click()

Dim Ft As Single, mu As Single, mu0 As Single, muk As Single, dmu As Single, m As Single, a As Single

Const g As Single = 9.81

Ft = InputBox("Ft=")

mu0 = InputBox("mu0=")

muk = InputBox("muk=")

dmu = InputBox("dmu=")

a = InputBox("a=")

List1.AddItem ("Ft=" & Ft & "; mu0=" & mu0 & "; muk=" & muk & "; dmu=" & dmu & "; a=" & a)

For mu = mu0 To muk Step dmu

m = Ft / (a + mu * g)

List1.AddItem ("m=" & m & " При mu=" & mu)Next

End Sub

6. Отладка приложения

**

Ручной счет:

Задание №2.

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

Колебательный контур состоит из конденсатора С и катушки с индуктивностью L и активным сопротивлением R = 20 Ом. Определить частоту свободных электромагнитных колебаний в этом контуре. На сколько изменится частота, если пренебречь активным сопротивлением катушки?

где 12∙10^–3  L  24∙10^–3 Гн с шагом 2∙10^–3 Гн;

48∙10^–6 ≤ C ≤ 72∙10^–6 Ф с шагом 12∙10^–6 Ф.

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

R – активное сопротивление катушки, переменная вещественного типа,

C0 – начальная ёмкость конденсатора, переменная вещественного типа,

Ck – конечная ёмкость конденсатора, переменная вещественного типа,

dC – шаг изменения ёмкости конденсатора, переменная вещественного типа,

L0 – начальная индуктивность катушки, переменная вещественного типа,

Lk – конечная индуктивность катушки, переменная вещественного типа,

dL – шаг изменения индуктивности катушки, переменная вещественного типа.

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

nu – частота свободных электромагнитных колебаний, переменная вещественного типа,

nu0 – частота свободных электромагнитных колебаний без активного сопротивления катушки, переменная вещественного типа,

delta – разность частот свободных электромагнитных колебаний, переменная вещественного типа.

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

где

3. Разработка алгоритма.

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

Private Sub Command1_Click()

Dim R As Single, nu As Single, nu0 As Single, delta As Single

Dim C As Single, C0 As Single, Ck As Single, dC As Single

Dim L As Single, L0 As Single, Lk As Single, dL As Single

Const pi As Single = 3.14

C0 = InputBox("C0=")

Ck = InputBox("Ck=")

dC = InputBox("dC=")

L0 = InputBox("L0=")

Lk = InputBox("Lk=")

dL = InputBox("Lu=")

R = InputBox("R=")

Print "R=" & R & "; C0=" & C0 & "; Ck=" & Ck & "; dC=" & dC

Print "L0=" & L0 & "; Lk=" & Lk & "; dL=" & dL

Print "nu", "nu0", "delta", "L", "C"

C = C0

Do Until C > Ck

L = L0

Do

nu = 1 / (2 * pi) * Sqr(1 / (L * C) - (R / (2 * L)) ^ 2)

nu0 = 1 / (2 * pi * Sqr(L * C))

delta = nu0 - nu

Print nu, nu0, delta, L, C

L = L + dL

Loop While L <= Lk

C = C + dC

Loop

End Sub

6. Отладка приложения

**

Ручной счет: