利用π/4≈1-1/3+1/5-1/7+… 求π得近似值 最后一项小于0.000001.我的代码是下面这样,算出来π=2.6667?Private Sub Command1_Click()Dim p As Double, n As Long, t As Integer, s As Double p = 1: n = 1: t = 1 Do n = n + 1 s = 1 /
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/01 22:44:40
![利用π/4≈1-1/3+1/5-1/7+… 求π得近似值 最后一项小于0.000001.我的代码是下面这样,算出来π=2.6667?Private Sub Command1_Click()Dim p As Double, n As Long, t As Integer, s As Double p = 1: n = 1: t = 1 Do n = n + 1 s = 1 /](/uploads/image/z/13143094-70-4.jpg?t=%E5%88%A9%E7%94%A8%CF%80%2F4%E2%89%881-1%2F3%2B1%2F5-1%2F7%2B%E2%80%A6+%E6%B1%82%CF%80%E5%BE%97%E8%BF%91%E4%BC%BC%E5%80%BC+%E6%9C%80%E5%90%8E%E4%B8%80%E9%A1%B9%E5%B0%8F%E4%BA%8E0.000001.%E6%88%91%E7%9A%84%E4%BB%A3%E7%A0%81%E6%98%AF%E4%B8%8B%E9%9D%A2%E8%BF%99%E6%A0%B7%2C%E7%AE%97%E5%87%BA%E6%9D%A5%CF%80%3D2.6667%3FPrivate+Sub+Command1_Click%28%29Dim+p+As+Double%2C+n+As+Long%2C+t+As+Integer%2C+s+As+Double++p+%3D+1%3A+n+%3D+1%3A+t+%3D+1++Do++n+%3D+n+%2B+1++s+%3D+1+%2F)
利用π/4≈1-1/3+1/5-1/7+… 求π得近似值 最后一项小于0.000001.我的代码是下面这样,算出来π=2.6667?Private Sub Command1_Click()Dim p As Double, n As Long, t As Integer, s As Double p = 1: n = 1: t = 1 Do n = n + 1 s = 1 /
利用π/4≈1-1/3+1/5-1/7+… 求π得近似值 最后一项小于0.000001.我的代码是下面这样,算出来π=2.6667?
Private Sub Command1_Click()
Dim p As Double, n As Long, t As Integer, s As Double
p = 1: n = 1: t = 1
Do
n = n + 1
s = 1 / (2 * n - 1)
t = -t
p = p + t * s
Loop While s < 0.000001
Print 4 * p, p
End Sub
哪里不对,请指出来?我算出来4 * p=2.6666666667.
利用π/4≈1-1/3+1/5-1/7+… 求π得近似值 最后一项小于0.000001.我的代码是下面这样,算出来π=2.6667?Private Sub Command1_Click()Dim p As Double, n As Long, t As Integer, s As Double p = 1: n = 1: t = 1 Do n = n + 1 s = 1 /
Loop While s > 0.000001
↑
这里是大于号
看不懂...
中间的计算没什么毛病
Print 4 * p, p
最后等程序结束了才可以print 4p