3、ej:=1;{改变方向}Fori:=i+1toi+kdo{横向填k个数}Beginy:=y+j;Result[x,y]:=i;End;End;Forx:=1tondo{输出}例题分析-7-张晓刚第7页2021/6/13辅导教师：张晓刚BeginFory:=1tondoWrite(Result[x,y]:3);Writeln;End;End.问题2方阵填数２【题目】方阵填数：在一个Ｎ×Ｎ的方阵中，填入１，２，．．．．．Ｎ×Ｎ个数，并要求构成如下的格式：Ｎ＝４N=5134101341011259112591219681215681318207
4、1314167141721241516222325【算法分析】例如Ｎ＝４，观察图案，是以右上→左下,或左下→右上这样的斜向来填数的。1234这个方向可用j取1与-1来控制。////3一共有７个斜行，每一斜行数的个数的规律1,2,3,4,3,2,1////2例如第三斜行，其坐标变化规律：a[1,3]->a[2,2]->a[3,1]////1第四斜行，a[4,1]->a[3,2]->a[2,3]->a[1,4]////坐标变化规律均是：在上一坐标基础上加1或减1 【参考程序】vara:array[1..20,1..20]ofinteger;n
5、,x,y,i,j,k,ii:integer;beginwriteln('inputn:');readln(n);{输入N}fillchar(a,sizeof(a),0);i:=0;x:=1;y:=1;k:=1;j:=1;{i:第i个数;x,y:坐标;k:每一斜行循环填的次数}{j:方向,由右上→左下,j=1;由左下→右上,j=-1}whilei<>n*ndobegin{未填完}forii:=1tokdobegin{每一斜行要填k个数}ifii>1thenbeginx:=x+j;y:=y-j;end;{斜行的头一个数,坐标不变}{其他的要在
6、原基础上根据方向j改动}inc(i);{i存放填的数字}a[x,y]:=i;{填于数组相应位置}end;{以下确定下一斜行的首坐标,填多少个数K(即循环次数K),方向j取反}ifj=-1theninc(y)elseinc(x);{根据上一斜行确定下一斜行的起始坐标}j:=-j;{方向取反}ify>nthenbeginy:=n;x:=x+1;end;{调整坐标,使之不出界}ifx>nthenbeginx:=n;y:=y+1;end;ifx+y<=n+1theninc(k)elsedec(k);{确定下一斜行要填多少个数}end;例题分析-7
7、-张晓刚第7页2021/6/13辅导教师：张晓刚fori:=1tondobeginforj:=1tondowrite(a[i,j]:4);writeln;end;{输出}end.问题3阶乘【题目】数学上定义:n!=1×2×3×...×(n-1)×n(N>0)0!=1若用integer型数据表示阶乘,最多可到7!,用Longint类型也只能到12!要求输入正整数n,求n!的精确表示【算法分析】用数组存放结果，模拟人工计算过程，逐位去乘，注意进位情况的处理。【参考程序１】constmax=1000;varn,i,j,jinwei,weishu
8、:integer;result:array[1..max]ofinteger;{result数组放结果}beginwriteln('inputn:');readln(n);{输入n}fillc
