Структура развилка / Лр Развилка (7)

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

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

Ввести y1 и y2, если x ≤ 0

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

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

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

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

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

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

Private Sub Command1_Click()

Dim x As Single, y1 As Single, y2 As Single

Const pi As Single = 3.14

x = InputBox("Введите X")

If x > 0 Then

y1 = 1 / (100 * Tan(x))

y2 = x ^ (1 / 5)

Else

y1 = InputBox("Введите Y1")

y2 = InputBox("Введите Y2")

End If

Print "X = " & x, "Y1 = " & y1, "Y2 = " & y2

End Sub

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