【问题描述】

幻方是一种很神奇的 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的幻方。相邻两个整数之间用单个空格隔开。

【题解】

一个水水的搜索。

【代码】

var  a:array [0..40,0..40] of longint;  n:longint;procedure print;var  i,j:longint;begin  for i:=1 to n do    begin      for j:=1 to n do        write(a[i,j],' ');      writeln;    end;end;procedure main(m,x,y:longint);var  i:longint;begin  if m>n*n then    begin      print;      halt;    end;  if (x=1) and (y<>n) then    begin      a[n,y+1]:=m;      main(m+1,n,y+1);    end else  if (x<>1) and (y=n) then    begin      a[x-1,1]:=m;      main(m+1,x-1,1);    end else  if (x=1) and (y=n) then    begin      a[x+1,y]:=m;      main(m+1,x+1,y);    end else    begin      if a[x-1,y+1]=0 then begin a[x-1,y+1]:=m; main(m+1,x-1,y+1); end                      else begin a[x+1,y]:=m; main(m+1,x+1,y); end;    end;end;begin  assign(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.