---

Вот готовый код для решения 19 задания на Visual Basic. 

В задании давлена функция с условиями (кусочно-заданная функция) и тригонометрия ($\operatorname{tg} x$ в VBA записывается как Tan(x)).

Sub Task19()
    Dim x As Double
    Dim y As Double
    
    ' Запрашиваем у пользователя значение x через InputBox
    x = Val(InputBox("Введите значение x:", "Вычисление функции"))
    
    ' Проверяем условия с помощью оператора If...ElseIf...Else
    If x < -3 Then
        y = x ^ 4
    ElseIf x >= -3 And x < 0 Then
        y = 2 * Tan(x)
    Else
        ' Если x >= 0, по условию задачи формула не задана, 
        ' поэтому выводим предупреждение или обрабатываем отдельно:
        MsgBox "Для x >= 0 значение функции не определено в задании!", vbCritical, "Ошибка"
        Exit Sub
    End If
    
    ' Выводим результат с помощью MsgBox
    MsgBox "Результат: y = " & y, vbInformation, "Вычисление завершено"
End Sub

Разбор кода:

1. Val(InputBox(...)) — считывает введенное пользователем число (функция Val защищает от ошибок, если введут запятую вместо точки или пустую строку).

2. x ^ 4 — возведение $x$ в четвертую степень.

3. Tan(x) — тангенс угла $x$ (в VBA тригонометрические функции считают аргумент в радианах).

4. If...ElseIf...Else — реализует ветвление в точности по вашей формуле для промежутков.

-----
0.261424 ₽ · /balance_help