Решение системы уравнений
Разработайте макрос для определения значения функции у. Значение чисел z и b задаётся с клавиатуры.
y=1/cosX+In |tgX/2|, где {z^b+|b/2|, при z<0
sqr(z), при z>0

Dim i As Integer
Dim z As Integer
Dim b As Integer
Z=InputBox(“Введите любое число”)
b=InputBox(“Введите любое число”)
If (IsNumeric(z)) then
Дальше , у меня не получилось
…..
….
…..
I=InputBox(“Введите число”)
If (IsNumeric(i)) then
Y=(1/cos(i))+In(absTan(i)/2)
Else
Дальше , у меня не получилось!
…..
….
Debug.Print Y

Подскажите, пожалуйста!
Заранее спасибо!!!!!!
Модератор:
Дублирование своих сообщений НЕ приветствуется