急求求魔方阵数目的PASCAL程序

来源：百度知道 编辑：UC知道 时间：2024/05/27 00:11:33
求4阶魔方阵的总数

PASCAL程序

急求,谢谢啊
没有输入,就是程序输出魔方阵的数目

魔方阵就是将1，2，．．．，16这16个连续的整数填入一个N×N的矩阵里。使每一行的、每一列的数或对角线位置的N个数各自相加，所得的和皆相同

谢谢,但是我不是要求一个魔方阵,而是要求总数,求总共有多少个这样的方阵满足要求

Program ex;
Var
a: array [1..1000, 1..1000] of longint;
n, i, j, k, ti, tj: longint;
Begin
readln(n);
i := 1;
j := (n + 1) div 2;
for k:=1 to n * n do
begin
ti := i;
tj := j;
a[i, j] := k;
dec(i);
inc(j);
if i = 0 then i := n;
if j > n then j := 1;
if a[i, j] <> 0 then
begin
i := ti + 1;
j := tj;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i, j] : 5);
writeln;
end;
End.

描述。。。
输入格式，输出格式，还有，什么是4阶魔方阵啊？

难

不会

就是这个，复制了吧，给我分吧

Program ex;
Var
a: array [1..1000, 1..1000] of longint;
n, i, j, k, ti, tj: longint;
Begin
readln(n);
i := 1;
j := (n + 1) div 2;
for k:=1 to n * n do
begin
ti := i;
tj := j;
a[i, j] := k;
dec(i);
inc(j);
if i = 0 then i := n;
if j > n th