Нужно в VBA составить эту формулу (см. вложение). Я сделал так. Правильно ли я сделал?
Sub Formula()
Dim x#, y#, f#
x = Val(InputBox("X= "))
y = Val(InputBox("Y= "))
f = (1 - Tan(x)) ^ Atn(x) + Cos(x - y)
MsgBox (f)
End Sub
[вложение удалено администратором]
В VBA нет готовой функции "котангенс" и она получается с использованием тангенса (смотрите "Cotangent"): https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/derived-math-functions
Sub Formula()
Dim x#, y#, f#
x = Val(InputBox("X= "))
y = Val(InputBox("Y= "))
f = (1 - Tan(x)) ^ (1 / Tan(x)) + Cos(x - y)
MsgBox (f)
End Sub