编写程序 1+1/3+1/5+……+1/（2n+1）直到1/（2n+1）小于0.00001

来源：百度知道 编辑：UC知道 时间：2024/05/26 06:00:24
要VB程序

代码如下：
Private Sub Command1_Click()
Dim sum As Single
Dim n As Long
For i = 1 To 100000
If 1 / (2 * i + 1) < 0.00001 Then
n = i - 1
Exit For
End If
Next i
For i = 0 To n
sum = sum + 1 / (2 * i + 1)
Next i
Print sum
End Sub
运行结果是：6.391604
楼上那位是c语言，我调试了一下，发现运行结果错了，代码是对的。

程序代码如下：
#include <stdio.h>
main()
{
  int n=1;
  double t=1,s=0;
  while(t>=0.00001) {s+=t; n+=2; t=1.0/n;}
  printf("%lg\n",s);
}

运行结果是：
5.83379