【问题描述】
幻方是一种很神奇的 N*N矩阵：它由数字1,2,3, … … ,N*N 构成，且每行、每列及两条对角线上的数字之和都相同。 当N为奇数时，我们可以通过以下方法构建一个幻方： 首先将1写在第一行的中间。 之后，按如下方式从小到大依次填写每个数K(K= 2,3, … ,N*N )： 1. 若(K−1)在第一行但不在最后一列，则将K填在最后一行，(K− 1)所在列 的右一列； 2. 若(K− 1)在最后一列但不在第一行，则将K填在第一列，(K− 1)所在行 的上一行； 3. 若(K− 1)在第一行最后一列，则将K填在(K− 1)的正下方； 4. 若(K− 1)既不在第一行，也不在最后一列，如果(K− 1)的右上方还未填 数，则将K填在(K− 1)的右上方，否则将K填在(K− 1)的正下方 现给定N，请按上述方法构造 N*N 的幻方。
【输入格式】
输入文件名为magic.in。 输入文件只有一行，包含一个整数N，即幻方的大小。
【输出格式】
输出文件名为magic.out。 输出文件包含N行，每行N个整数，即按上述方法构造出的N*N的幻方。相邻两个整数之间用单个空格隔开。
【题解】
一个水水的搜索。
【代码】
vara:array [0..40,0..40] of longint;n:longint;
procedure print;
vari,j:longint;
beginfor i:=1 to n dobeginfor j:=1 to n dowrite(a[i,j],' ');writeln;end;
end;procedure main(m,x,y:longint);
vari:longint;
beginif m>n*n thenbeginprint;halt;end;if (x=1) and (y<>n) thenbegina[n,y+1]:=m;main(m+1,n,y+1);end elseif (x<>1) and (y=n) thenbegina[x-1,1]:=m;main(m+1,x-1,1);end elseif (x=1) and (y=n) thenbegina[x+1,y]:=m;main(m+1,x+1,y);end elsebeginif a[x-1,y+1]=0 then begin a[x-1,y+1]:=m; main(m+1,x-1,y+1); endelse begin a[x+1,y]:=m; main(m+1,x+1,y); end;end;
end;beginassign(input,'magic.in');assign(output,'magic.out');reset(input);rewrite(output);readln(n);a[1,n div 2+1]:=1;main(2,1,n div 2+1);close(input);close(output);
end.
