有关队列基础及应用.pptVIP

0 1 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 1 1 0 0 0 0 0 1 1 1 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 1 1 入口→ 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 → 出口 const n1=50 ; var t:array [1..n1,1..n1] of char ; f: boolean ; c,d,n,m,i,j,w,b :1..n1 ; procedure move ( x, y :integer ); begin t[x,y]:=$ ; if (x=c ) and ( y=d ) then f:=true else begin { 4 个方向搜索} if (y m ) and (t[x