pascal 奇数阶幻方用pascal实现生成任意奇数阶幻方

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/05 11:52:27

pascal 奇数阶幻方用pascal实现生成任意奇数阶幻方
pascal 奇数阶幻方
用pascal实现生成任意奇数阶幻方

pascal 奇数阶幻方用pascal实现生成任意奇数阶幻方
var
x,y,z,m,n,i,j:integer;
a:array[1..1000,1..1000] of integer;
begin
readln(m);
if m mod 2=1 then
begin
n:=(m div 2)+1;
for i:=1 to m do
begin
for j:=1 to m do
a[i,j]:=0;
end;
i:=1+1;j:=n+1;y:=1;
for z:=1 to m*m do
begin
i:=i-1;j:=j-1;
if i=0 then
begin
i:=m;
end;
if j=0 then
begin
j:=m;
end;
if a[i,j]0 then
begin
i:=i+2;
j:=j+1;
if i>m then
i:=i-m;
if j>m then
j:=j-m;
end;
a[i,j]:=y;
y:=y+1;
end;
end;
for i:=1 to m do
begin
for j:=1 to m do
write(a[i,j]:5);
writeln;
end;
readln;
end.
我试过了,可以的.（但只限于边长为奇数）

pascal 奇数阶幻方用pascal实现生成任意奇数阶幻方 pascal pascal pascal! pascal 100以内奇数求和 Pascal 是什么 Pascal是什么 pascal随机数 PASCAL程序 全1数字全1 数字请用PASCAL编写,输入一个奇数P(P free pascal常见语句 求几道 初学 free pascal pascal 中 log(n) free pascal 黑洞6174 pascal 输入n(1 pascal平均数变量 pascal 输入n(1 是pascal内容 pascal练习题 铺地砖 halt;什么意思PASCAL pascal a to b