Структура цикл / Лр Цикл

Задание 1

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

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

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

Входные данные: i – номер секунды, за которую поезд прошёл L м; целая

переменная,

t – время движения поезда; вещественная переменная,

L0 – начальное значение параметра цикла; вещественная

переменная,

Lk – конечное значение параметра цикла; вещественная

переменная,

dL – шаг изменения параметра цикла; вещественная

переменная.

Выходные данные: L – параметр цикла, вещественная переменная,

S – значение функции, вещественная переменная,

V – значение функции, вещественная переменная,

a – значение функции, вещественная переменная.

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

при L₀ ≤ L ≤ L_k с шагом ΔL.

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

4. Разработка визуальной части проекта

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

Private Sub Command1_Click()

Dim L As Single, L0 As Single, Lk As Single, dL As Single, t As Single, i As Integer

L0 = InputBox("L0=")

Lk = InputBox("Lk=")

dL = InputBox("dL=")

i = InputBox("i=")

t = InputBox("t=")

List1.AddItem ("i=" & i & "; t=" & t)

List1.AddItem (" L a V S")

Do While L <= Lk

a = L / i

V = a * t

S = a * t ^ 2

List1.AddItem (Format(L, "0.0") & " " & Format(a, "0.000") & " " & Format(V, "0.00") & " " & S)

L = L + dL

Loop

End Sub

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

**

Ручной счет:

L = 4,0; a = 1,00; V = 10,0, S = 100

L = 7,5; a = 1,75; V = 17,5, S = 175

L = 8,0; a = 2,00; V = 20,0, S = 200

Задание 2

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

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

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

Входные данные: m – масса груза; вещественная переменная,

a0 – начальное значение 1 параметра цикла; вещественная

переменная,

ak – конечное значение 1 параметра цикла; вещественная

переменная,

da – шаг изменения 1 параметра цикла; вещественная

переменная,

mu0 – начальное значение 1 параметра цикла; вещественная

переменная,

muk – конечное значение 1 параметра цикла; вещественная

переменная,

dmu – шаг изменения 1 параметра цикла; вещественная

переменная.

Выходные данные: a – 1 параметр цикла, вещественная переменная,

mu – 2 параметр цикла, вещественная переменная,

F – значение функции, вещественная переменная.

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

при α₀  α  α_k с шагом Δα; ₀    _k с шагом Δ.

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

4. Разработка визуальной части проекта

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

Private Sub Command1_Click()

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

Dim mu As Single, mu0 As Single, muk As Single, dmu As Single

Const g As Single = 9.81

a0 = InputBox("a0=", , 0)

ak = InputBox("ak=", , 0.5)

da = InputBox("da=", , 0.1)

mu0 = InputBox("mu0=", , 0.1)

muk = InputBox("muk=", , 0.2)

dmu = InputBox("dmu=", , 0.02)

m = InputBox("m=", , 10)

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

a = a0

Do Until a > ak

mu = mu0

Do

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

Print Format(a, "0.0"), Format(mu, "0.00"), Format(F, "0.000")

mu = mu + dmu

Loop While mu <= muk

a = a + da

Loop

End Sub

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

**

Ручной счет:

α = 0; μ = 0,18; F = 18,07

α = 0,1; μ = 0,2; F = 20,12

α = 0,4; μ = 0,16; F = 18,28