最优乘车（广度优先搜索）

Description　　H城是一个旅游胜地，每年都有成千上万的人前来观光。为方便游客，巴士公司在各个旅游景点及宾馆，饭店等地都设置了巴士站并开通了一些单程巴上线路。每条单程巴士线路从某个巴士站出发，依次途经若干个巴士站，最终到达终点巴士站。　　一名旅客最近到H城旅游，他很想去S公园游玩，但如果从他所在的饭店没有一路已士可以直接到达S公园，则他可能要先乘某一路巴士坐几站，再下来换乘同一站台的另一路巴士,
这样换乘几次后到达S公园。　　现在用整数1,2,…N
给H城的所有的巴士站编号，约定这名旅客所在饭店的巴士站编号为1…S公园巴士站的编号为N。　　写一个程序，帮助这名旅客寻找一个最优乘车方案,使他在从饭店乘车到S公园的过程中换车的次数最少。Input　　输入的第一行有两个数字M和N(1<=M<=100 1Output　　输出文件只有一行。如果无法乘巴士从饭店到达S公园，则输出"N0"，否则输出你的程序所找到的最少换车次数，换车次数为0表示不需换车即可到达•Sample Input

3 7
6 7
4 7 3 6
2 1 3 5

Sample Output

2

解题思路：先读入数据，并且用布尔型二维数组储存每个站之间的关系，然后用队列的思想，寻找符合题意的最佳路线，最后按要求输出即可。

程序：

const

maxn=500;

var

a:array[1..maxn,1..maxn]of boolean;

v:array[1..maxn] of boolean;

road,state,father:array[1..maxn] of integer;

m,n:integer;

procedure init;

var

i,j,k:integer;

begin

for i:=1 to maxn do

state[i]:=-1;

readln(m);

readln(n);

for i:=1 to m do

begin

k:=0;

repeat

inc(k);

read(road[k]);

for j:=1 to k-1 do

a[road[j],road[k]]:=true;

until eoln;

end;

end;

procedure main;

var

head,tail,i,j,k:integer;

begin

head:=0;tail:=1;father[1]:=1;state[1]:=-1;v[1]:=true;

repeat

inc(head);

for i:=1 to n do

if a[father[head],i] and not v[i]

then begin

inc(tail);

v[i]:=true;

father[tail]:=i;

state[i]:=state[father[head]]+1;

end;

until (head=tail) or v
;

if  head=tail then writeln('NO')

else writeln(state[i]);

end;

begin

init;

main;

end.