errortest_1.p

来自「pascal-s编译器」· P 代码 · 共 52 行

const   MaxN := 20;
type ktyp=array[ 0: MaxN ,0: MaxN  of integer;
var    k:ktyp;n,i:integer
procedure magic(var k:ktyp;n:integer
var i, i,j,num,flag:integer;
begin
        for i:=0 to n-1 do begin
           for j:=0 to n-1 do
                    k[i][j]:=0;                   //方阵的所有元素清零
           end;
        i:=0; j:=n div 2;                     //确定i,j的初始位置
        for num:=1 to n*n do
          begin 
                       flag:=0;
                    if i<0 then
                    begin 
                         if j<0 then flag:=1
                    end;
                    if i>=0 then begin if j>=0 then begin
                    if k[i][j]<>0 then flag:=1;end;end;
                    if flag=1 then 
                    begin 
                    i:=i+2;
                    j:=j+1;
                    end;
                    k[i][j]:=num;  //填入一个数num ，并修改位置（i,j）
                     i:=i-1;  j:=j-1;
                     flag:=0;
                     if i<0 then begin if j>=0 then flag:=1 end;
                     if flag=1 then i:=n-1;         //修正i的位置
                     flag:=0;
                     if j<0 then begin if i>=0 then flag:=1 end;
                     if flag=1
                     then j:=n-1;                              //修正j的位置
                    
                     end;
end;
begin
              n:=13;
               magic(k,n);
               for i:=0 to n-1 do begin
                  for j:=0 to n-1 do begin
                  write( k[i][j]);write("   ");                   //方阵的所有元素清零
                    end;
                    writeln("");
               end;


end.ihjjk