回形矩阵(蛇形矩阵)解题思路.doc

《回形矩阵(蛇形矩阵)解题思路.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、126735813491214101115164种方向的走法，向右，斜向下，向下，斜向上。K为走的方向，1、2、3、4最后输出的时候变化x,y的位置会改变蛇行输出的方向你也可以试下。知道了上面的规则你就可以记住了。programsx;varsz:array[1..20,1..20]ofinteger;x,y,i,n,k:integer;beginreadln(n);forx:=1tondofory:=1tondosz[x,y]:=0;x:=1;y:=1;sz[x,y]:=1;k:=1;fori:=2ton*ndobeginifk=1then

2、beginy:=y+1;ifx=nthenk:=4elsek:=2;endelseifk=2thenbeginx:=x+1;y:=y-1;ifx=nthenk:=1elseify=1thenk:=3;endelseifk=3thenbeginx:=x+1;ify=nthenk:=2elsek:=4;endelseifk=4thenbeginx:=x-1;y:=y+1;ify=nthenk:=3elseifx=1thenk:=1;end;sz[x,y]:=i;end;forx:=1tondobeginfory:=1tondowrite(sz[

3、x,y]:4);writeln;end;readln;end.