Найти значение функции - VBA
Формулировка задачи:
Напишите процедуру на языке VBA для нахождения функции y(x)=(x²+x³)/(x⁴+x^6+5).Вычисление x^k оформить в виде функции
Решение задачи: «Найти значение функции»
textual
Листинг программы
Sub Vishenka101098()
Dim x As Double, y As Double
x = Val(Replace(InputBox("x = ", , 0.78), ",", "."))
y = (pow(x, 2) + pow(x, 3)) / (pow(x, 4) + pow(x, 6) + 5)
MsgBox "y =" & y
End Sub
Function pow(x As Double, k As Integer) As Double
pow = x ^ k
End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д