中科新闻网眉间心上的含义:pasical螺旋数组
来源：百度文库 编辑：中科新闻网 时间：2024/05/03 11:32:37
求源码
谢众GG＆JJ！！
1 2 3 4
12 13 14 5
11 16 15 6
10 9 8 7
谢众GG＆JJ！！
1 2 3 4
12 13 14 5
11 16 15 6
10 9 8 7
模拟运动轨迹，碰墙就转
var a:array[0..6,0..6] of integer;
i,j,m,n,s:integer;
begin
for i:=1 to 5 do begin
a[0,i]:=1;
a[i,0]:=1;
a[6,i]:=1;
a[i,6]:=1;
end;
m:=1;
n:=1;
s:=1;
repeat
a[m,n]:=s;
if (a[m,n+1]<>0) and (a[m-1,n]<>0) and (a[m+1,n]=0) then m:=m+1 else
if (a[m,n+1]<>0) and (a[m+1,n]<>0) and (a[m,n-1]=0) then n:=n-1 else
if (a[m,n-1]<>0) and (a[m+1,n]<>0) and (a[m-1,n]=0) then m:=m-1 else n:=n+1;
s:=s+1;
until s=25+1;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
write(a[i,j]:3);
end;
writeln;
end;
end.