Получить массив по правилу - VB
Формулировка задачи:
Помогите решить задачи в среде Visual Basic:
Решение задачи: «Получить массив по правилу»
textual
Листинг программы
a = Val(InputBox("Введите a:"))
b = Val(InputBox("Введите b:"))
u = Val(InputBox("Введите u:"))
x1 = Sqr(Sqr(Abs(b)))
x2 = (a * x1) ^ (1 / 3)
x3 = Sqr(Sqr(Abs(a)) * b)
X = x2 / x3
y1 = Sqr(Abs(b)) * Exp(1) ^ (-(b + u / 2))
y2 = Exp(1) ^ (u / 5 - 2)
y = y1 + y2
MsgBox "X = " & X & vbCrLf & "Y = " & y