Найти значение функции - VBA

Формулировка задачи:

Напишите процедуру на языке VBA для нахождения функции y(x)=(x²+x³)/(x⁴+x^6+5).Вычисление x^k оформить в виде функции

Код к задаче: «Найти значение функции - VBA»

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

5   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ