关于 Free Pascal 的问题啦。。。

显示全部楼层 · 2011-6-30 04:27:53

计算X的值，已经知道：X=1/（1*2）1/（3*4）1/（5*6）……1/（99*100）
1/(1*2)为分数。

S=11/2！1/3！1/4－…1/n!
1）求到第50项；
2）求到最后一项小于10的﹣5次方。

千问 · 2011-6-30 04:27:53

programex1.1;
var
x:real;
i:integer;
begin
x:=0;
fori:=1to50do
x:=x1/((2*i-1)*(2*i));
write(x);
end.

programh1;
var
a:longint;
x,y:integer;
e:real;
begin
e:=0;
forx:=1to10do
begin
a:=1;
fory:=1toxdo
a:=a*y;
e:=1/ae;
end;
write(e);
end.

programt1;
var
i:integer;
sum:real;
n:longint;
begin
n:=1;
i:=1;
sum:=0;
whilen=100000do
begin
sum:=sum1/n;
i:=i1;
n:=n*i;
end;
write(sum);
end.

可能会有错，表介意(*^__^*)