Структура развилка / 13
.docxЗадание №1
1. Постановка задачи.
1.1 Словесное описание задачи.
где
1.2 Состав входных и выходных переменных.
Входные переменные:
d – переменная вещественного типа.
Выходные переменные:
t – переменная вещественного типа,
P – переменная вещественного типа.
2. Математическая модель задачи.
3. Схема алгоритма.
4. Код программы.
Private Sub Command1_Click()
Dim d As Single, a As Single, P As Single, t As Single
d = InputBox("d=")
a = d ^ (1 / 3)
If a = 3 Then
P = Sin(a)
t = InputBox("t=")
Else
If a > 3 Then
P = a ^ 2 + 1
Else
P = 0
t = 0
End If
End If
Print "P=" & P, "t=" & t, "d=" & d
End Sub
5. Отладка программы.
Задание №2
1. Постановка задачи.
1.1 Словесное описание задачи.
1.2 Состав входных и выходных переменных.
Входные переменные:
H – переменная вещественного типа,
L – переменная вещественного типа.
Выходные переменные:
V – переменная вещественного типа.
2. Математическая модель задачи.
3. Схема алгоритма.
4. Код программы.
Private Sub Command1_Click()
Dim y As Single, x As Single
x = InputBox("x=")
If x = 0 Then
Print "Функция не определена"
Else
If x > 0 Then
y = x / 2 ^ x
Else
y = x
End If
Print "x=" & x, "y=" & y
End If
End Sub
5. Отладка программы.