Description

設有一個n×n的方格迷宮，入口和出口分別在左上角和右上角（如圖的示）

迷宮的格子分別放有0和1，0表示可通，１表示不能，迷宮走的規則如下圖所示。

即從某點出發，可沿8個方向前進，前進方格中的數為０時表示可以通過，為１時表示不可以通過，如從入口開始，有2條路可以走，即向右走，或向右下角走，當迷宮給出后，找出一條從入口(1,1)到出口(1,8)的有多少條不同的中路徑。

Input

Output

Sample Input

8 0 0 0 1 1 0 1 0 1 0 1 1 0 1 1 0 0 1 0 0 1 0 0 1 0 0 1 1 0 1 0 1 0 1 0 0 0 1 1 0 0 1 1 1 1 1 0 1 0 0 1 1 1 0 1 1 1 1 0 0 0 0 0 0

Sample Output

720

這題我是用搜索來做的

搜的時候，能走八個方向，如果下一個點能走就記錄下來，繼續搜。

var n,x,y,s,t,i,j:longint; a:array[0..1001,0..1001]of longint; b:array[0..1001]of longint; dx:array[1..8]of longint=(0,0,1,1,1,-1,-1,-1); dy:array[1..8]of longint=(1,-1,0,1,-1,0,1,-1); procedure search(x,y:longint); var i:longint; beginif (x=1)and(y=n) thenbegininc(t);exit;end elsefor i:=1 to 8 doif (a[x+dx[i],y+dy[i]]<>1)and(x+dx[i] in [1..n])and(y+dy[i] in [1..n]) thenbegina[x+dx[i],y+dy[i]]:=1;search(x+dx[i],y+dy[i]);a[x+dx[i],y+dy[i]]:=0;end; end;beginreadln(n);for i:=1 to n dobeginfor j:=1 to n doread(a[i,j]);readln;end;s:=0;t:=0;a[1,1]:=1;search(1,1);write(t); end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500241.html

總結

以上是生活随笔為你收集整理的迷宫问题pascal程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。