Даны действительные числа А и В. Получить z = arcsin (|ab|)+10 sin(b) - VB
Формулировка задачи:
Даны действительные числа А и В. Получить z = arcsin (|ab|)+10 sin(b).
Решение задачи: «Даны действительные числа А и В. Получить z = arcsin (|ab|)+10 sin(b)»
textual
Листинг программы
Dim pi# Private Sub Form_Load() pi = Atn(1) * 4 End Sub Function ASin(ByVal x As Double) As Double If Abs(x) = 1 Then ASin = pi / 2 * Sgn(x) ElseIf Abs(x) < 1 Then ASin = Atn(x / (1 - x ^ 2) ^ 0.5) End If End Function Private Sub Command1_Click() Dim A As Double, B As Double, x As Double, z As Double A = Val(Replace(InputBox("Введите значение A=", "Ввод данных", 0.5), ",", ".")) B = Val(Replace(InputBox("Введите значение B=", "Ввод данных", 0.7), ",", ".")) x = Abs(A * B) z = ASin(x) + 10 * Sin(B) MsgBox z End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д