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

Задание 1

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

За i-ую секунду от начала движения поезд прошел L метров. Какой путь пройдет поезд за первые t секунд и какой скорости он достигнет по истечении этого времени?

Отладку программы произвести для значений i = 4, t=10, 3 ≤ L ≤ 9 м с шагом 0,5 м.

1.2. Состав входных и выходных переменных

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

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

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

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

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

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

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

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

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

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

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

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

4. Код программы

Private Sub Command1_Click()

Dim i As Single, t As Single, V As Single, S As Single, L As Single, L1 As Single, Lk As Single, dL As Single

i = InputBox("Введите i")

t = InputBox("Введите t")

L = InputBox("Введите L1")

Lk = InputBox("Введите Lk")

dL = InputBox("Введите dL")

L = L1

Do While L <= Lk

a = 2 * L / (2 * i - 1)

S = (a * (t ^ 2)) / 2

V = a * t

Print "L=" & L, "S=" & S, "V=" & V, "a=" & a

L = L + dL

Loop

End Sub

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

Задание 2

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

Груз массой m перемещают равномерно по прямой в горизонтальной плоскости, прилагая силу, направленную под углом α к горизонту. Определить величину этой силы при изменяющихся значениях угла α и коэффициента трения μ

где 0 ≤ α ≤ 0,5 рад с шагом 0,1 рад ; 0,1 ≤ μ ≤ 0,2 с шагом 0,02; m=10кг.

1.2. Состав входных и выходных переменных

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

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

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

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

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

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

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

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

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

где α₁ ≤ α ≤ α_k с шагом Δα; μ₁ ≤ μ ≤ μ_k с шагом Δμ.

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

4. Код программы

Private Sub Command1_Click()

Dim m As Single, a As Single, a1 As Single, ak As Single, da As Single

Dim mu As Single, mu1 As Single, muk As Single, dmu As Single, F As Single

Const g = 9.8

a1 = InputBox("Введите a1")

ak = InputBox("Введите ak")

da = InputBox("Введите da")

mu1 = InputBox("Введите Mu1")

muk = InputBox("Введите Muk")

dmu = InputBox("Введите dMu")

m = InputBox("Введите m")

a = a1

Do While a <= ak

For mu = mu1 To muk Step dmu

F = m * mu * g / (Cos(a) - mu * Sin(a))

Print "a=" & a, "Mu=" & mu, "F=" & F

Next

a = a + da

Loop

End Sub

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