Найти значение функции - 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

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы