Помогиле пожалуйста записать эту формулу в вба
Помогиле пожалуйста записать эту формулу в вба
Задать свой вопрос1 ответ
Валера Кошовник
Function ArcSin(x As Double) As Double
Dim Pi As Double
Pi2 = 2 * Atn(1)
Select Case x
Case -1
ArcSin = -Pi2
Case 1
ArcSin = Pi2
Case x gt; -1 And x lt; 1
ArcSin = Atn(x / Sqr(1 - x ^ 2))
Case Else
MsgBox "Недопустимое значение арксинуса " amp; CStr(x)
ArcSin = 1
End Select
End Function
Sub aaa()
Dim a As Double, x As Double, z As Double, y As Double
a = CDbl(InputBox("Задайте значение a"))
x = a ^ 2 + 3
z = Sin(a) + 5
y = Exp(Sin(x) ^ 2) * Log(Abs(ArcSin(x))) / (z - 1)
MsgBox "y=" amp; CStr(y)
End Sub
Значение y не будет вычислено никогда!
x 3, а у арксинуса аргумент не может быть больше 1.
Dim Pi As Double
Pi2 = 2 * Atn(1)
Select Case x
Case -1
ArcSin = -Pi2
Case 1
ArcSin = Pi2
Case x gt; -1 And x lt; 1
ArcSin = Atn(x / Sqr(1 - x ^ 2))
Case Else
MsgBox "Недопустимое значение арксинуса " amp; CStr(x)
ArcSin = 1
End Select
End Function
Sub aaa()
Dim a As Double, x As Double, z As Double, y As Double
a = CDbl(InputBox("Задайте значение a"))
x = a ^ 2 + 3
z = Sin(a) + 5
y = Exp(Sin(x) ^ 2) * Log(Abs(ArcSin(x))) / (z - 1)
MsgBox "y=" amp; CStr(y)
End Sub
Значение y не будет вычислено никогда!
x 3, а у арксинуса аргумент не может быть больше 1.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Облако тегов