信息学竞辅导1PASCAL综合应用.pptVIP

算法改进 效率如何？ 当i=142，则timeout! 怎么办？ 因为输出结果只有两种：0或1 因此，只需确定1的位置即可 算法优化 k:=1; fillchar(a,sizeof(a),0); a[1]:=1; for i:=1 to 141 do begin k:=k+i a[k]:=1; end; for i:=1 to n do begin read(p);writeln(a[p]);end; 程序优化： k:=1; fillchar(a,sizeof(a),0); a[1]:=1; for i:=1 to 141 do begin k:=k+i a[k]:=1; end; 数据输出： for i:=1 to n do begin read(p);writeln(a[p]);end; Var a: array[1..10,1..10] of integer; x,y,xx,yy,s,n: integer; Begin fillchar(a,sizeof ( a ), 0); {将a数组各元素置0} repeat write(Input Number Please!); {提示输入n} readln(n) until odd(n); {保证输入的n为奇数} s:=1; x:=1; y:=(n div 2)+1; a[x,y]:=1; repeat inc(s); xx:=x; yy:=y; dec(x); dec(y); if x1 then x:=n; if y1 then y:=n; if a[x,y] 0 then begin x:=xx+1; y:=yy end; a[x,y]:=s; until s=n*n; for x:=1 to n do begin for y:=1 to n do write(a[x,y]:3); writeln end; End. 例4、螺旋式方阵。 编写一个根据n的值显示螺旋式数字方阵的程序。方阵中数字的排列规律如下： 1 2 3 n=3时： 8 9 4 7 6 5 1 2 3 4 12 13 14 5 n=4时： 11 16 15 6 10 9 8 7 1 2 3 4 5 16 17 18 19 6 15 24 25 20 7 n=5时: 14 23 22 21 8 13 12 11 10 9 算法分析 方阵中有n×n个数，可以用n行n列的二维数组存放这些数，待n×n个数全部产生并存入这个二维数组后，输出这个二维数组。 用4个整型变量left、right、up、down表示方阵的左、右、上、下边界，其初始值为1、n、1、n。 重复执行下列操作，直到n×n个数都填满： 先从左往右填up行，然后up值加1； 先从上往下填right列，然后right值减1； 先从右往左填down行，然后down值减1； 先从下往上填left列，然后left值加1； Const max=100;var a:array[1..max,1..max] of integer; n,i,j,up,down,right,left,s :integer;begin readln(n); up:=1;down:=n; right:=n;left:=1; s:=0;i:=up; while sn*n do begin//从左往右填 for j:=left to right do begin s:=s+1; a[i,j]:=s; end; up:=up+1;j:=right; //从上往下填 for i:=up to down do begin s:=s+1; a[i,j]:=s; end; right:=ri