level 9
原来它只能算到7！
2013年02月10日 06点02分
level 9
50！都得用高精度了。。。
2013年02月11日 10点02分
6
level 12
level 12
level 9
var
n,w,j,x,i:longint;
a:array [1..1000] of longint;
begin
readln(n);w:=1;a[1]:=1;
for i:=1 to n do
begin
x:=0;
for j:=1 to w do begin
a[j]:=a[j]*i+x;
x:=a[j] div 10;
a[j]:=a[j] mod 10;
end;
while x>0 do
begin
w:=w+1;
a[w]:=x mod 10;
x:=x div 10;
end;
end;
for i:=w downto 1 do
write(a[i]);
end.
2013年02月11日 14点02分
10
n,w,j,x,i:longint;
a:array [1..1000] of longint;
begin
readln(n);w:=1;a[1]:=1;
for i:=1 to n do
begin
x:=0;
for j:=1 to w do begin
a[j]:=a[j]*i+x;
x:=a[j] div 10;
a[j]:=a[j] mod 10;
end;
while x>0 do
begin
w:=w+1;
a[w]:=x mod 10;
x:=x div 10;
end;
end;
for i:=w downto 1 do
write(a[i]);
end.
RT。。。高精度阶乘
2013年02月11日 14点02分
编译试试吧。。。可能会有错。
2013年02月11日 14点02分
回复 可否考虑q :看不懂耶
2013年02月11日 14点02分
回复 黑榜o玄月xxl :恩。。。1到n依次相乘，x表示上次进位，a数组表示n！的每一位，最后向最高位进位。
2013年02月11日 14点02分
level 9
level 9
黑榜o玄月xxl
楼主
@可否考虑q
你写的我试过了，是对的。
我有几个问题
1、一开始那个“for j:=1 to w do”有什么用啊，一开始w不是等于1吗，而且后面的while循环条件也不成立啊
“begin
x:=0;
for j:=1 to w do begin
a[j]:=a[j]*i+x;
x:=a[j] div 10;
a[j]:=a[j] mod 10;
end;”这个执行之后什么都没变啊
2、我在输入电脑的时候删去了“for i:=1 to n do”后面的begin和有一个end，把“x：=0”放到了“for j:=1 to w do”后面，结果输出的值都是0，为什么会这样？
2013年02月13日 14点02分
13
你写的我试过了，是对的。
我有几个问题
1、一开始那个“for j:=1 to w do”有什么用啊，一开始w不是等于1吗，而且后面的while循环条件也不成立啊
“begin
x:=0;
for j:=1 to w do begin
a[j]:=a[j]*i+x;
x:=a[j] div 10;
a[j]:=a[j] mod 10;
end;”这个执行之后什么都没变啊
2、我在输入电脑的时候删去了“for i:=1 to n do”后面的begin和有一个end，把“x：=0”放到了“for j:=1 to w do”后面，结果输出的值都是0，为什么会这样？
@黑榜o玄月xxl 1.w表示位数，for j:=1 to w do表示从最后一位一直乘到第一位
2013年02月14日 06点02分
level 9
2.（你说的是这样吧）
var
n,w,j,x,i:longint;
a:array [1..1000] of longint;
begin
readln(n);w:=1;a[1]:=1;
for i:=1 to n do
for j:=1 to w do begin
x:=0;
a[j]:=a[j]*i+x;
x:=a[j] div 10;
a[j]:=a[j] mod 10;
end;
while x>0 do
begin
w:=w+1;
a[w]:=x mod 10;
x:=x div 10;
end;
for i:=w downto 1 do
write(a[i]);
end.
2013年02月14日 06点02分
14
var
n,w,j,x,i:longint;
a:array [1..1000] of longint;
begin
readln(n);w:=1;a[1]:=1;
for i:=1 to n do
for j:=1 to w do begin
x:=0;
a[j]:=a[j]*i+x;
x:=a[j] div 10;
a[j]:=a[j] mod 10;
end;
while x>0 do
begin
w:=w+1;
a[w]:=x mod 10;
x:=x div 10;
end;
for i:=w downto 1 do
write(a[i]);
end.
这样的话进位就不能实现了 while x>0 do begin w:=w+1; a[w]:=x mod 10; x:=x div 10; end; 这段语句没有执行
2013年02月14日 06点02分
回复 可否考虑q :并且x一直赋值为0，上一次的进位也就一直是0
2013年02月14日 06点02分
level 1
var n,i,j:longint;
a:array[0..5000]of longint;
begin
fillchar(a,sizeof(a),0);
readln(n);a[5000]:=1;
for i:=2 to n do
begin
for j:=5000 downto 1 do a[j]:=a[j]*i;
for j:=5000 downto 2 do
begin
a[j-1]:=a[j-1]+a[j]div 10;
a[j]:=a[j]mod 10;
end;
end;
i:=0;
while a[i]=0 do inc(i);
for j:=i to 5000 do write(a[j]);writeln;
readln;
end.
（300以内均可）
2014年08月02日 14点08分
17
a:array[0..5000]of longint;
begin
fillchar(a,sizeof(a),0);
readln(n);a[5000]:=1;
for i:=2 to n do
begin
for j:=5000 downto 1 do a[j]:=a[j]*i;
for j:=5000 downto 2 do
begin
a[j-1]:=a[j-1]+a[j]div 10;
a[j]:=a[j]mod 10;
end;
end;
i:=0;
while a[i]=0 do inc(i);
for j:=i to 5000 do write(a[j]);writeln;
readln;
end.
（300以内均可）
