1樓：楊今晨
xa = 3
doxb = val((2 / 3) * xa + 27 / 3 * (xa) ^ 2)
xa = xb
loop until abs(val(xb - xa)) < 0.00001
print "27的立方根為："; xa
這不是我寫的,求參考和改進,謝謝啦
2樓：藍衣仙兒
我也求這道題的答案 嗚嗚嗚
·vb用迭代法求立方根 10
3樓：末路丶輕嘆花開
option explicit
private sub command1_click()
dim a&, b!, c!
a = 3
b = a
doc = 2 * b / 3 + a / (3 * b * b)
if math.abs(b - c) < 0.00001 then exit do
b = c
loop
text1.text = a & "立方根為：" & c & vbcrlf & "利用運算子求得3的立方根為：" & a ^ (1 / 3)
a = 27
b = a
doc = 2 * b / 3 + a / (3 * b * b)
if math.abs(b - c) < 0.00001 then exit do
b = c
loop
text2.text = a & "立方根為：" & c & vbcrlf & "利用運算子求得3的立方根為：" & a ^ (1 / 3)
end sub
4樓：鬆鬆一號
dim x1&, x0&, t!
private sub command1_click()x0 = val(text1)
a=x0
do x1 = (2 / 3) * x0 + (a / (3 * x0*x0))
t = x0
x0 = x1
loop until abs(x0 - t) < 10 ^ (-5)text2 = x1
end sub
以上為用迭代法求立方根的**。
期待被採納!
c語言：用迭代法求x=a的立方根
5樓：匿名使用者
#include
int main()
printf("\nx = %f",x);
return 0;}
vb 通過迭代法求x的立方根，幫我看怎麼改錯
6樓：匿名使用者
x0=0時，0做除數，導致溢位。
7樓：悠悠周郎
你的 t 有意義嗎？我的求解過程：
dim 實數 as integer = 3dim x0 as double = 實數dodim x1 as double = (2 / 3) * x0 + (實數 / (3 * x0 ^ 2))
x0 = x1
if math.abs(x0 ^ 3 - 實數) <= 10 ^ -5 then
msgbox("立方根：" & x0)
exit do
end if
loop
你試試哈，只要得出結果的立方與實數的立方差距小於 10^-5 即可。你用你的方式得到「實數」就行了
高斯賽德爾迭代法比雅克比迭代法好在哪
高斯 賽德爾迭代比雅克比收斂快,但這個結論只在一定條件 下才成立,有時甚至雅克比方法收斂,而高斯 賽德爾卻是發散的。計算機數值方法。高斯賽德爾迭代法和雅克比迭代法,區別在 什麼情況下對應乙個方程組得到的結 高斯賽德爾迭代所需的儲存量少,每迭代一次只需一組儲存單元,雅版可比需要兩組。但是在精權度和迭代...
牛頓迭代法求解非線性方程的c程式設計
數值方法書上不是有 牛頓法是牛頓在17世紀提出的一種求解方程f x 0.多數方程不存在求根公式，從而求精確根非常困難，甚至不可能，從而尋找方程的近似根就顯得特別重要。設r是f x 0的根，選取x0作為r初始近似值，過點 x0,f x0 做曲線y f x 的切線l，l的方程為y f x0 f x0 x...
牛頓迭代法是什麼原理呢
牛頓迭代法是以微分為基礎的，微分就是用直線來代替曲線，由於曲線不規則，那麼我們來研究直線代替曲線後，剩下的差值是不是高階無窮小，如果是高階無窮小，那麼這個差值就可以扔到不管了，只用直線就可以了，這就是微分的意義。牛頓法是牛頓在17世紀提出的一種求解方程f x 0.多數方程不存在求根公式，從而求精確根...