Задание №1

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

Поезд, двигаясь под уклон, прошел за t секунд путь S и развил скорость V. Как изменяется ускорение поезда и какова была его скорость в начале уклона в зависимости от времени t?

где S = 340 м; V = 19 м/c; 15 ≤ t ≤ 25с шагом 1 с.

Входные данные: t0 – начальное значение параметра цикла, переменная вещественного типа; tk – конечное значение параметра цикла, переменная вещественного типа; dt – шаг значений параметра цикла, переменная вещественного типа; S – пройденный путь, переменная вещественного типа; V – скорость через t секунд, переменная вещественного типа.

Выходные данные: V0 – скорость в начале уклона, переменная вещественного типа; a – ускорение поезда, переменная вещественного типа; t – параметр цикла, переменная вещественного типа.

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

где t₀ ≤ t ≤ t_k с шагом Δt.

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

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

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

Private Sub Command1_Click()

Dim t0 As Single, tk As Single, dt As Single, S As Single, V As Single, t As Single, a As Single, V0 As Single

t0 = InputBox("t0=")

tk = InputBox("tk=")

dt = InputBox("dt=")

V = InputBox("V=")

S = InputBox("S=")

List1.AddItem ("t V0 a")

For t = t0 To tk Step dt

V0 = 2 * S / t - V

a = (V - V0) / t

List1.AddItem (t & " " & Format(V0, "0.0") & " " & Format(a, "0.0"))

Next

End Sub

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

Ручной счет:

t = 15; V0 = 26,3; a = -0,5

t = 16; V0 = 23,5; a = -0,3

t = 17; V0 = 21; a = -0,1

Задание №2

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

Объем усеченной пирамиды вычисляется по формуле

,

где S₁ и S₂ – площади оснований;

H – высота.

Напечатать таблицу для следующих значений переменных: S₁ = 0,5 м; 0 ≤ S₂ ≤ 0,25 м с шагом 0,05 м; 0,5 ≤ H ≤ 2,0 м с шагом 0,5 м.

Входные данные: S0, H0 – начальные значения параметров цикла, переменные вещественного типа; Sk, Hk – конечные значения параметров цикла, переменные вещественного типа; dS, dH – шаги значений параметров цикла, переменные вещественного типа; S1 – площадь одного из оснований, переменная вещественного типа.

Выходные данные: V – объём усечённой пирамиды, переменная вещественного типа; S2, H – параметры цикла, переменные вещественного типа.

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

,

где S₀ ≤ S₂ ≤ S_k с шагом ΔS; H₀ ≤ H ≤ H_k м с шагом ΔH.

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

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

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

Private Sub Command1_Click()

Dim S0 As Single, Sk As Single, dS As Single, S1 As Single, V As Single, S2 As Single, H0 As Single, Hk As Single, dH As Single, H As Single

S0 = InputBox("S0=")

Sk = InputBox("Sk=")

dS = InputBox("dS=")

S1 = InputBox("S1=")

H0 = InputBox("H0=")

Hk = InputBox("Hk=")

dH = InputBox("dH=")

S1 = InputBox("S1=")

Print "S2", "H", "V"

S2 = S0

Do While S2 <= Sk

H = H0

Do

V = 1 / 3 * H * (S1 + Sqr(S1 * S2) + S2)

Print S2, H, V

H = H + dH

Loop Until H > Hk

S2 = S2 + dS

Loop

End Sub

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

Ручной счет:

S₂ = 0; H = 0,5; V = 0,08

S₂ = 0,05; H = 1; V = 0,24

S₂ = 0,1; H = 1,5; V = 0,41