深度优先搜索(pascal).pptVIP

算法思想 深度优先搜索的搜索策略是：尽可能“深”的搜索某一分支。在深度优先搜索中，对于最先发现的结点，如果还有以此为起点的未搜索边，则沿此边继续搜索下去。当结点V的所有边都已经被探寻过，搜索将回溯到发现点V的那条边的始结点。重复此过程直至源结点可到达的所有结点为止。 深度优先搜索的基本算法结构 （1）递归实现。 Procedure dfs_try(i); For i:=1 to maxr do begin if 子结点mr符合条件 then begin 产生的子结点mr入栈； if子结点mr是目标结点 then 输出； else dfs_try(i+1); 栈顶元素出栈； End; End; 上机练习题 1.添加自然数问题。（add.pas） 要求找出具有下列性质的数的个数(包含输入的自然数n)： 先输入一个自然数n(n=500),然后对此自然数按照如下方法进行处理: ①. 不作任何处理; ②. 在它的左边加上一个自然数,但该自然数不能超过原数的一半; ③. 加上数后,继续按此规则进行处理,直到不能再加自然数为止. 输入文件：add.in,一行，n的值。 输出文件：add.out，一行，按照规则可产生的自然数个数。 样例： 输入文件： 6 满足条件的数为? ?6 ???????????? ??? 16 ??????????????? 26 ?????????????? 126 ????????????? ?? 36 ?????????????? 136 输出文件 6 var n,i:integer; s:real; procedure qiu(x:integer); var k:integer; begin if x0 then begin s:=s+1; for k:=1 to x div 2 do qiu(k) end end; begin readln(n); s:=0; qiu(n); writeln(s) end. 2. 跳马问题。（jump.pas） 在5*5格的棋盘上，有一个国际象棋的马，它可以朝8个方向跳，但不允许出界或跳到已跳过的格子上，要求求出跳遍整个棋盘后的不同的路径条数。 输出文件：jump.out，一行，路径条数。 program jump; var h:array[-1..7,-1..7] of integer; a,b:array[1..8] of integer; i,j,num:integer; procedure print; var i,j:integer; begin num:=num+1; {if num=5 then begin for i:=1 to 5 do begin for j:=1 to 5 do write(h[i,j]:4); writeln; end; writeln; end; } end; procedure try(x,y,i:integer); var j,u,v:integer; begin for j:=1 to 8 do begin u:=x+a[j]; v:=y+b[j]; if h[u,v]=0 then begin h[u,v]:=i; if i25 then try(u,v,i+1) else print; h[u,v]:=0 end; end; end; begin for i:=-1 to 7 do for j:=-1 to 7 do if (i=1)and(i=5)and(j=1)and(j=5) then h[i,j]:=0 else h[i,j]:=1; a[1]:=2;b[1]:=1; a[2]:=1;b[2]:=2; a[3]:=-1;b[3]:=2; a[4]:=-2;b[4]:=1; a[5]:=-2;b[5]:=-1; a[6]:=-1;b[6]:=-2; a[7]:=1;b[7]:=-2; a[8]:=2;b[8]:=-1; num:=0; h[1,1]:=1; try(1,1,2); writeln(num); end. 3.过河卒 棋盘上A点有一个过河卒，需要走到目标B点。卒行走的规则：可以向下、或者向右。同时在棋盘上C点有一个对方的马，该马所在