栈、队列与广搜.pptVIP

* * 例4 最少中转路线（work1） 最少中转路线（work1） 下图表示的是从城市A到城市H的交通图。从图中可以看出，从从一个城市到另一个城市要经过若干个城市。 现要找出一条经过城市最少的一条路线。 Program road Type Node=record St:integer; Deep:integer; Pre:integer; End; Var g[1..8][1..8]:array of integer=(…….); Data:array[1..20]of node; Function check(k:integer):Boolean; Begin end; 广度优先搜索算法： 初始化；建立数据库data(既存储接点的队列，一般用一个数组来实现，每一个节点一般包含接点数据，深度值，父节点指针等信息)； ? ? ? ? ? Begin Closed:=0; open:=1; Data[1].st:=1;data[1].deep:=0;data[1].pre:=0; Reapeat Closed:=closed+1; For r:=1 to 8 do Begin If(g[r][data[closed].st]=1)and check（r)then Begin O