tyc

 
program aa;
var
i,j,m,n:integer;
a:array [1..100,1..100] of integer;
begin
repeat
readln(n);
m:=n mod 2;
until m<>0;
for i:=1 to n do
  for j:=1 to n do a[i][j]:=0;
i:=2;j:=n div 2;
for m:=1 to n*n do
begin
  i:=i-1;j:=j+1;
  if (i=0) and (j<>n+1) then  i:=n;
  if (j=n+1) and (i<>0) then j:=1;
  if (a[i][j]<>0) or (i=0) and (j=n+1) then
  begin
    i:=i+2;
    j:=j-1;
  end;
  a[i][j]:=m;
end;
for i:=1 to n do
  begin
  for j:=1 to n do
   write(a[i][j]:5);
  writeln;
  end;
end.
复制代码

[ 本帖最后由 tyc 于 2009-4-2 16:20 编辑 ]

tyc

我用pascal，批处理写不出来，一急就用其它高级语言了，不过这一题是初中生的竞赛题。

[ 本帖最后由 tyc 于 2009-4-3 07:34 编辑 ]