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)
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 18:19:25
![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)](/uploads/image/z/444549-21-9.jpg?t=vb+%E7%BC%96%E7%A8%8B+%E7%94%A8%26%2361552%3Bpi+%2F4+%3D1-1%2F3%2B1%2F5-1%2F7%2B...%E5%85%AC%E5%BC%8F%E6%B1%82pi%26%2361552%3B%E7%9A%84%E8%BF%91%E4%BC%BC%E5%80%BC%2C%E7%9B%B4%E5%88%B0%E6%9C%80%E5%90%8E%E4%B8%80%E9%A1%B9%E7%BB%9D%E5%AF%B9%E5%80%BC%E5%B0%8F%E4%BA%8E10-6%E4%B8%BA%E6%AD%A2Dim+pi+As+Double%2C+i+As+Integer%2C+x+As+Long++++++++x+%3D+1++++++++i+%3D+1++++++++While+1+%2F+x+%3E+10+%5E+-6++++++++pi+%3D+pi+%2B+i+%2A+%281+%2F+x%29)
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)
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的近似值,直到最后一项绝对值小于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)
1、循环前面加一条:pi=0
2、i=-1改为i=-1*i
在while循环中,i除了X=1时为1其余全为-1,一直没变,将循环中的i=-i就行了;还有就是
pi = pi + i * (1 / x)中等号两边数据类型不匹配,可以直接将i和x定义成双精度数
Dim pi As Double, i As Integer, x As Long
x = 1
i = 1
Whi...
全部展开
在while循环中,i除了X=1时为1其余全为-1,一直没变,将循环中的i=-i就行了;还有就是
pi = pi + i * (1 / x)中等号两边数据类型不匹配,可以直接将i和x定义成双精度数
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 = -i
x = x + 2
Wend
Print pi * 4
收起
问题出在i=-1,循环开始后i始终=-1,已经不满足公式了,公式里是一正一负的
有高手可以指教下用迭代法怎么做吗?