编程实现：s=1 – 1/2 + 1/3 – 1/4 + 1/5 – 1/6+……+ 1/99 – 1/100 大师在哪？

如题所述

举报该文章

相关建议 2013-03-20

Private Sub Command1_Click()
Dim I As Integer, Sum As Single, K As Integer
K = 1
For I = 1 To 100
Sum = Sum + K / I
K = -K
Next
Print Format(Sum, "0.000000")
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/2884sfmpv.html

其他看法

第1个回答 2013-03-20

double myFun(int n)
{
double s = 0;
double m = 0;
int i = 0;
for (i = 0; i <= n; i++)
{
m = i;
if (0 == i%2)
{
s += 1/(m + 1)
}
else
{
s -= 1/(m + 1)
}
}
return s;
}

第2个回答 2013-03-20

double sum =100;
double s = 0;

for(int i=1;i<=100;i++)
{
if (i%2==1){
s = s+1/sum;
}else{
s= s - 1/sum;
}
sum = sum + 1;
}

相似回答

大家正在搜