Структура цикл / 8 (2)

Задание №1

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

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

Как изменяется центростремительное ускорение поезда, движущегося по закруглению дороги со скоростью V, в зависимости от радиуса r?

где V = 60 км/ч; 200 ≤ r ≤ 1000 м с шагом 100 м.

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

Входные переменные:

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

Выходные переменные:

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

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

где r₁ ≤ r ≤ r_k с шагом Δr.

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

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

Private Sub Command1_Click()

Dim r As Single, r1 As Single, rk As Single, dr As Single, V As Single, a As Single

r1 = InputBox("r1=")

rk = InputBox("rk=")

dr = InputBox("dr=")

V = InputBox("V=")

Print "V = " & V & "; r1 = " & r1 & "; rk = " & rk & "; dr = " & dr

For r = r1 To rk Step dr

a = V ^ 2 / r

Print "a = " & a, "r = " & r

Next

End Sub

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

Задание №2

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

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

Напечатать таблицу объёма шарового сегмента

для следующих данных: 1 ≤ h ≤ 9 см с шагом 1 см, 5 ≤ r ≤ 10 cм с шагом 2,5 см.

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

Входные переменные:

h1 – переменная вещественного типа, hk – переменная вещественного типа, dh – переменная вещественного типа. r1 – переменная вещественного типа, rk – переменная вещественного типа, dr – переменная вещественного типа.

Выходные переменные: V – переменная вещественного типа.

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

где h₁ ≤ h ≤ h_k с шагом Δh, r₁ ≤ r ≤ r_k с шагом Δr.

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

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

Private Sub Command1_Click()

Dim r As Single, r1 As Single, rk As Single, dr As Single, V As Single, h As Single, h1 As Single, hk As Single, dh As Single

Const pi As Single = 3.14

h1 = InputBox("h1=")

hk = InputBox("hk=")

dh = InputBox("dh=")

r1 = InputBox("r1=")

rk = InputBox("rk=")

dr = InputBox("dr=")

Print "h1 = " & h1 & "; hk = " & hk & "; dh = " & dh

Print "r1 = " & r1 & "; rk = " & rk & "; dr = " & dr

h = h1

Do

r = r1

Do Until r > rk

V = 1 / 6 * pi * h * (h ^ 2 + 3 * r ^ 2)

Print "V = " & V, "h = " & h, "r = " & r

r = r + dr

Loop

h = h + dh

Loop While h <= hk

End Sub

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