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

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

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

где постоянная π=3,14.

При решении контрольного примера переменным присвоить значения:

1) x=10; y=10; 2) x=9; y=11; 3) x=15; y=13.

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

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

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

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

где постоянная π=3,14.

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

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

Private Sub Command1_Click()

Dim x As Single, y As Single, z As Single

Const pi As Single = 3.14

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

y = InputBox("Введите Y")

If x = y Then

z = 2 * x + y ^ 1.2

Else

If x < 3 * y Then

z = -4 * Sin(pi + x) + y

Else

z = x + y ^ 4.2

End If

End If

Print "X = " & x, "Y = " & y, "Z = " & z

End Sub

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