Вычислить значение функции при заданных исходных данных, сверить полученный результат с представленным в таблице. Вывести в диалоговое окно и в окно отладки Immediate исходные данные и полученное значение функции. Подскажите пожалуйста, что у меня не правильно, заранее спасибо
[vba]
Код
Sub значение_функции() Dim x As Single, a As Single, y As Single x = Val(InputBox("введите x")) a = Val(InputBox("введите a")) y = Sqr(x ^ (-3) + x / a ^ (1 / 4)) / a + x ^ (2) Debug.Print "y=" End Sub
[/vba]
Вычислить значение функции при заданных исходных данных, сверить полученный результат с представленным в таблице. Вывести в диалоговое окно и в окно отладки Immediate исходные данные и полученное значение функции. Подскажите пожалуйста, что у меня не правильно, заранее спасибо
[vba]
Код
Sub значение_функции() Dim x As Single, a As Single, y As Single x = Val(InputBox("введите x")) a = Val(InputBox("введите a")) y = Sqr(x ^ (-3) + x / a ^ (1 / 4)) / a + x ^ (2) Debug.Print "y=" End Sub
Анастасия, не совсем так. Жирным как раз делать ничего не нужно. Просто войдите в редактирование своего поста, выделите код макроса и нажмите кнопочку # (которая рядом с кнопочкой fx) ================== А ответ уже готов давно. Ждем Исправления Вашего поста
Анастасия, не совсем так. Жирным как раз делать ничего не нужно. Просто войдите в редактирование своего поста, выделите код макроса и нажмите кнопочку # (которая рядом с кнопочкой fx) ================== А ответ уже готов давно. Ждем Исправления Вашего поста_Boroda_
Sub значение_функции() ' Dim x As Single, a As Single, y As Single x = Val(InputBox("введите x")) a = Val(InputBox("введите a")) y = Sqr(x ^ (-3) + (x / a) ^ (1 / 4)) / (a + x ^ (2)) Debug.Print "y=" End Sub
[/vba]
[vba]
Код
Sub значение_функции() ' Dim x As Single, a As Single, y As Single x = Val(InputBox("введите x")) a = Val(InputBox("введите a")) y = Sqr(x ^ (-3) + (x / a) ^ (1 / 4)) / (a + x ^ (2)) Debug.Print "y=" End Sub
Sub значение_функции() Dim x As Single, a As Single, y As Single x = Val(InputBox("введите x")) a = Val(InputBox("введите a")) d = a + x y = Sqr(x ^ -3 + (x / a) ^ (1 / 4)) / (a + x ^ 2) Debug.Print "y="; y End Sub
[/vba]
Раз уж написал, что готово, выложу [vba]
Код
Sub значение_функции() Dim x As Single, a As Single, y As Single x = Val(InputBox("введите x")) a = Val(InputBox("введите a")) d = a + x y = Sqr(x ^ -3 + (x / a) ^ (1 / 4)) / (a + x ^ 2) Debug.Print "y="; y End Sub