Структура цикл / 31
.docx
Задание №1
1. Постановка задачи
Входные данные: k, V1, Vk, dV – вещественного типа
Выходные данные: S – вещественного типа
2. Математическая модель:
3. Разработка алгоритма:
4. Разработка визуальной части проекта **
5. Код приложения:
Private Sub Command1_Click()
Dim V As Single, V1 As Single, Vk As Single, dV As Single
Dim k As Single, S As Single
Const g As Single = 9.80665
k = InputBox("Введите k")
V1 = InputBox("Введите V1")
Vk = InputBox("Введите Vk")
dV = InputBox("Введите dV")
For V = V1 To Vk Step dV
S = V ^ 2 * k * g / 2
List1.AddItem ("S(" & V & ")= " & Format(S, "0.00"))
Next
End Sub
6. Отладка приложения: **
Задание №2
1. Постановка задачи
Входные данные: V1, Vk, dV, L1, Lk, dL – вещественного типа
Выходные данные: S– вещественного типа
2. Математическая модель:
3. Разработка алгоритма:
4. Разработка визуальной части проекта **
5. Код приложения:
Private Sub Command1_Click()
Dim V As Single, V1 As Single, Vk As Single, dV As Single
Dim L As Single, L1 As Single, Lk As Single, dL As Single
Dim S As Single
V1 = InputBox("Введите V1")
Vk = InputBox("Введите Vk")
dV = InputBox("Введите dV")
L1 = InputBox("Введите L1")
Lk = InputBox("Введите Lk")
dL = InputBox("Введите dL")
V = V1
Do While V <= Vk
L = L1
Do
S = ((2 * Sqr(3) * (Cos(L / 2)) ^ 2) / Cos(L)) * (9 * V ^ 2 * (1 / Tan(L)) ^ 2) ^ (1 / 3)
Print "S(" & V & "; " & L & ")=" & Format(S, "0.00")
L = L + dL
Loop Until L > Lk
V = V + dV
Loop
End Sub
6. Отладка приложения: **