題意

走迷宮，要繞開障礙，走過的就不能再走，求有多少種不同的方法可以到達終點

分析

我們可以用深搜來做，輸入時把障礙的坐標記錄下來

const
dx:array[1..4]of longint=(0,0,1,-1);
dy:array[1..4]of longint=(1,-1,0,0);


var
n,m,t,sx,sy,fx,fy,tj,i,z1,z2:longint;
a:array[-100..100,-100..100]of longint;


procedure search(x,y:longint);
var
i:longint;
begin
? ? if (a[x,y]=1)or(x<1)or(x>n)or(y<1)or(y>m) then exit;
? ? if (x=fx)and(y=fy) then
? ? begin
? ? ? ? inc(tj);
? ? ? ? exit;
? ? end;
? ? a[x,y]:=1;
? ? for i:=1 to 4 do
? ? begin
? ? ? ? x:=x+dx[i];
? ? ? ? y:=y+dy[i];
? ? ? ? search(x,y);
? ? ? ? x:=x-dx[i];
? ? ? ? y:=y-dy[i];
? ? end;
? ? a[x,y]:=0;
end;


begin
? ? readln(n,m,t);
? ? readln(sx,sy,fx,fy);
? ? fillchar(a,sizeof(a),0);
? ? for i:=1 to t do
? ? begin
? ? ? ? readln(z1,z2);
? ? ? ? a[z1,z2]:=1;
? ? end;
? ? tj:=0;
? ? search(sx,sy);
? ? write(tj);
end.

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

總結

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

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