数学题。。。（先放这先） [复制链接]

[pp=single_ubb,272,41,1e02c2eqba96]sid=43663&surl=https://www.huaxueba.com/bbs/&url=http://p.qihoo.com/pic/1e02c2eqba96&rurl=http://yp.qihoo.com/pic/1001d5fqa177.gif&rurl_w=272&rurl_h=41[/pp]
Attached Images

Pascal
Var s,a:real
Begin
s:=0;a:=1;
Repeat
a:=a/4;
s:=s+1/(1+a);
Until a<0.0000001
Writeln(s);
End.

[ 本帖最后由 苯萘蒽菲 于 2008-9-12 22:00 编辑 ]

可能求不出来的
（每一项都大于1，怎么求啊，一直在放大呢，有点像调和级数那种感觉，最后都是无限小了，结果照样没有极限）
你可以用判敛法试试，像25 楼说的一样

记得 Pi[1,n]1/(1+x^n) 是收敛的，但是值是求不出的，当n在收敛域内

........

1.355909673863479
C++解
#include
#include
#include
using namespace std;

int main()
{
double s=1;
for(int i=1;i<=100000000;i++)
s*=1+1/pow(4.0,i);

cout<system("pause");

}

1.35590967386348

vb代码：
Private Sub Command1_Click()
Dim a, b, c As Double
a = 1
c = 1
For i = 1 To 1000000
a = a / 4
b = 1 + a
c = c * b
Next
Text1.Text = c
End Sub

...

用pascal得出8F的解。。。

....?

话说薛猫怎么还没来。。