主题：[原创]阶乘
日奈森亚梦
[专家分：150] 发布于 2009-04-09 21:20:00
1！+2！+3！+4！.......+9！+10！的值。
最后更新于：2009-04-14 20:36:00
回复列表 （共20个回复）
11 楼
DYF213 [专家分：90] 发布于 2009-04-25 14:25:00
[quote]迭代高精度..[/quote]
无需高精度，很小啊，用高级算法反而耗时多
12 楼
818721 [专家分：10] 发布于 2009-12-16 20:03:00
如果小
用回朔
大的话
高精度
13 楼
818721 [专家分：10] 发布于 2009-12-16 20:04:00
[quote]Program wmr;
var s,i:integer;
begin
s:=1;
for i;=1 to 10 do
s:= s*i;
writeln(s);
end.[/quote]
integer最大算7位
longint最大……11还是12位
14 楼
chip [专家分：80] 发布于 2010-08-06 22:52:00
两种方法：
var
m,n:real; //real是11位，可以！
i:byte;
begin
n:=0;
m:=1;
for i:=1 to 10 do begin
m:=m*i;
n:=n+m;
end;
write(n:0:0);
readln;
end.
或：
var
m,n:longint; //longint是10位，够用！
i:byte;
begin
n:=0;
m:=1;
for i:=1 to 10 do begin
m:=m*i;
n:=n+m;
end;
write(n);
readln;
end.
15 楼
zzj12345 [专家分：160] 发布于 2010-08-18 20:01:00
太简单了
一个循环输出
16 楼
phile [专家分：2310] 发布于 2010-09-05 19:38:00
我来也！
program p1;
var i,j,s,k:integer;
begin
for i:=1 to 10 do
begin
k:=1;
for j:=1 to i do
begin
k:=k*j;
end;
s:=s+k;
end;
write(s);
end.
17 楼
phile [专家分：2310] 发布于 2010-09-05 19:40:00
随便写的
18 楼
478860992 [专家分：0] 发布于 2010-09-14 20:21:00
那也叫随便啊，楼上
未免也太凿凿了吧
19 楼
songquan [专家分：110] 发布于 2010-09-15 19:56:00
................
20 楼
稀栗哥3 [专家分：30] 发布于 2010-10-04 08:29:00
我也是初学者，只是知道n！=1*2*3.。。。。。*n.
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — [原创]阶乘