ex9;
var
a:array[1..10,1..10]of
integer;矩陣10*10
d判別符號,n矩陣大小,i橫坐標,j縱坐標,m次數,賦值大小,x不好意思,我沒看見:integer;
begin
readln(n);
i:=1;j:=1;d:=1;m:=1;
repeat
a[i,j]:=m賦值a[i,j];
case
d
of
1:begin
i:=i+1;向右移動1個單位
if
j=1
then
d:=2
else
d:=4;
end;
2:begin
i:=i-1;j:=j+1;向左下移動
if
j=N
then
d:=1
else
if
i=1
then
d:=3;
end;
3:
begin
j:=j+1;向下移動壹個個單位
if
i=N
then
d:=2
else
d:=4;
end;
4:
begin
i:=i+1;j:=j-1;向右上移動
if
i=N
then
d:=3
else
if
j=1
then
d:=1;
end;
end;
m:=m+1;
until
m>n*n;
for
i:=1
to
n
do輸出n行
begin
for
j:=1
to
n
do
write(a[i,j]:4);輸出a[i,j],占4個單位
writeln;換行
end;
readln;等待用戶反應
end.