Условие:
Составить программу вычисления значения функции согласно предложенному варианту


Составить программу вычисления значения функции согласно предложенному варианту

Sub f()
a = 0.266
x = 0.0831
alp = 42
y = Sin(alp) ^ 2 * (a ^ 2 + WorksheetFunction.Ln(x)) + Sin(alp)
MsgBox y
End Sub