您所在位置：主题：help me~~~~~~~~,.,.,.,.,.
jack.B
[专家分：0] 发布于 2007-07-30 22:13:00
[color=0000FF][/color]求助吖!~!!!
1.const max=100;
2.n=20;
3.var a:array[1..max] of 0..9;
4.i,j,k,x:integer;
5.begin
6.k:=max;a[k]=1;
7.for i:=2 to n do
8.begin
9.x:=0;
10.for j:=max downto k do
11.begin
12.x:=x+a[j]*i;
13.a[j]:=x mod 10;
14.x:= xdiv 10;
15.end;
为什么?6行说了'K=MAX;' 10行还要从'MAX'循环到'K'呢???!!-_-!!
偶谢大家了
1.const max=100;
2.n=20;
3.var a:array[1..max] of 0..9;
4.i,j,k,x:integer;
5.begin
6.k:=max;a[k]=1;
7.for i:=2 to n do
8.begin
9.x:=0;
10.for j:=max downto k do
11.begin
12.x:=x+a[j]*i;
13.a[j]:=x mod 10;
14.x:= xdiv 10;
15.end;
为什么?6行说了'K=MAX;' 10行还要从'MAX'循环到'K'呢???!!-_-!!
偶谢大家了
