深度优先搜索.pdfVIP

深度优先搜索

所谓所谓深度深度是对产生问题的状态结点而言的，是对产生问题的状态结点而言的，深度优先深度优先是一种控制结点扩

展的策略，这种策略是优先扩展深度大的结点，把状态向纵深发展。深度优先搜

索也叫做DFS法(DepthFirstSearch)。深度优先搜索的递归实现过程：

proceduredfs(i);

forj:=1tordo

if子结点mr符合条件then产生的子结点mr入栈；

if子结点mr是目标结点then输出

elsedfs(i+1);

栈顶元素出栈（即删去mr）;

endif;

endfor;

[例1]骑士游历:

设有一个n*m的棋盘，在棋盘上任一点有一个中国象棋马.

马走的规则为:

1.马走日字

2.马只能向右走。

当N,M输入之后,找出一条从左下角到右上角的路径。例如:输入N=4,M=4，

输出:路径的格式:(1,1)-(2,3)-(4,4)，若不存在路径,则输出

算法分析：我们以4×4的棋盘为例进行分析，用树形结构表示马走的所有过程，

求从起点到终点的路径,实际上就是从根结点开始深度优先搜索这棵树。

马从（1，1）开始，按深度优先搜索法，走一步到达（2，3），判断是否到达终

点，若没有，则继续往前走，再走一步到达（4，4），然后判断是否到达终点，

若到达则退出，搜索过程结束。为了减少搜索次数，在马走的过程中，判断下

一步所走的位置是否在棋盘上，如果不在棋盘上，则另选一条路径再走。

程序如下：

const

dx:array[1..4]ofinteger=(2,2,1,1);

dy:array[1..4]ofinteger=(1,-1,2,-2);

type

map=record

x,y:integer;

end;

var

i,n,m:integer;

a:array[0..50]ofmap;

proceduredfs(i:integer);

varj,k:integer;

begin

forj:=1to4do

if(a[i-1].x+dx[j]0)and(a[i-1].x+dx[j]=n)

and(a[i-1].y+dy[j]0)and(a[i-1].y+dy[j]=n)then{判断是否在棋盘上}

begin

a[i].x:=a[i-1].x+dx[j];

a[i].y:=a[i-1].y+dy[j];{入栈}

if(a[i].x=n)and(a[i].y=m)then

begin

write((,1,,,1,));

fork:=2toidowrite(-(,a[k].x,,,a[k].y,));

halt;{输出结果并退出程序}