奇数的很简单，
是菱纸教我的，
偶数的我想来想去想不懂。

现在家里后院起火，
晚些时候灭火了有时间了再发上来。

这个有点难！

看到这个应该能看懂了吧？菱纸就是给了这个给我，程序应该很容易写的了。
[img]http://pic.lyglyg.com/yourpic/2005/12/15/fb814ddf191cfaa41ced548bc6093c06.jpg[/img]

i = 7
ii = i * i
DIM s(ii)
s(1) = (ii + 1) \ 2 + 1
PRINT USING "###"; s(1);
FOR j = 2 TO ii
  IF j MOD i = 1 THEN
     PRINT
     k = s(j - i) + i + 1
  ELSE
     k = s(j - 1) - i + 1
  END IF
  IF k MOD i = 1 THEN k = k - i
  IF k < 0 THEN k = k + ii
  IF k > ii THEN k = k - ii
  s(j) = k
  PRINT USING "###"; s(j);
NEXT