作业帮 > 综合 > 作业

vb 编程 用pi /4 =1-1/3+1/5-1/7+...公式求pi的近似值,直到最

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/29 11:50:47
vb 编程 用pi /4 =1-1/3+1/5-1/7+...公式求pi的近似值,直到最后一项绝对值小于10-6为止
Dim pi As Double, i As Integer, x As Long
x = 1
i = 1
While 1 / x > 10 ^ -6
pi = pi + i * (1 / x)
i = -1
x = x + 2
Wend
Print pi * 4
我是菜鸟 求指教 请问哪儿错了?
vb 编程 用pi /4 =1-1/3+1/5-1/7+...公式求pi的近似值,直到最
1、循环前面加一条:pi=0
2、i=-1改为i=-1*i