Предмет: Информатика,
автор: a2012a2a
Помогиле пожалуйста записать эту формулу в вба
Приложения:

Ответы
Автор ответа:
0
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 > -1 And x < 1
ArcSin = Atn(x / Sqr(1 - x ^ 2))
Case Else
MsgBox "Недопустимое значение арксинуса " & 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=" & 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 > -1 And x < 1
ArcSin = Atn(x / Sqr(1 - x ^ 2))
Case Else
MsgBox "Недопустимое значение арксинуса " & 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=" & CStr(y)
End Sub
Значение y не будет вычислено никогда!
x ≥ 3, а у арксинуса аргумент не может быть больше 1.
Похожие вопросы
Предмет: Геометрия,
автор: ar5386904
Предмет: Математика,
автор: ezozagafurova18
Предмет: Алгебра,
автор: Sekoshtar
Предмет: История,
автор: Аноним
Предмет: Математика,
автор: 520минус5равно515