Description

　　H城是一個(gè)旅游勝地，每年都有成千上萬的人前來觀光。為方便游客，巴士公司在各個(gè)旅游景點(diǎn)及賓館，飯店等地都設(shè)置了巴士站并開通了一些單程巴上線路。每條單程巴士線路從某個(gè)巴士站出發(fā)，依次途經(jīng)若干個(gè)巴士站，最終到達(dá)終點(diǎn)巴士站。
　　一名旅客最近到H城旅游，他很想去S公園游玩，但如果從他所在的飯店沒有一路已士可以直接到達(dá)S公園，則他可能要先乘某一路巴士坐幾站，再下來換乘同一站臺(tái)的另一路巴士, 這樣換乘幾次后到達(dá)S公園。
　　現(xiàn)在用整數(shù)1,2,…N 給H城的所有的巴士站編號(hào)，約定這名旅客所在飯店的巴士站編號(hào)為1…S公園巴士站的編號(hào)為N。
　　寫一個(gè)程序，幫助這名旅客尋找一個(gè)最優(yōu)乘車方案,使他在從飯店乘車到S公園的過程中換車的次數(shù)最少。

Input

　　輸入的第一行有兩個(gè)數(shù)字M和N(1<=M<=100 1<n<=500），表示開通了m條單程巴士線路，總共有n個(gè)車站。從第二行到第m刊行依次給出了第1條到第m條巴士線路的信息。其中第i+1行給出的是第i條巴士線路的信息，從左至右按運(yùn)行順序依次給出了該線路上的所有站號(hào)相鄰兩個(gè)站號(hào)之間用一個(gè)空格隔開。

Output

　　輸出文件只有一行。如果無法乘巴士從飯店到達(dá)S公園，則輸出"N0"，否則輸出你的程序所找到的最少換車次數(shù)，換車次數(shù)為0表示不需換車即可到達(dá)?

Sample Input

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

Sample Output

２

這題我是用廣度優(yōu)先搜索做的

我先把所有可走的線路記錄下來，再去搜。

var
n,m:longint;
a:array[0..500,0..500]of boolean;
f:array[0..500]of boolean;
father,b,state:array[0..500]of longint;


procedure init;
var
k,i,j:longint;
begin
? ? fillchar(a,sizeof(a),false);
? ? fillchar(state,sizeof(state),#0);
? ? readln(m,n);
? ? for i:=1 to m do
? ? begin
? ? ? ? k:=0;
? ? ? ? repeat
? ? ? ? ? ? ?inc(k);
? ? ? ? ? ? ?read(b[k]);
? ? ? ? ? ? ?for j:=1 to k-1 do
? ? ? ? ? ? ?a[b[j],b[k]]:=true;
? ? ? ? until eoln;
? ? end;
end;


procedure bfs;
var
head,tail,i:longint;
begin
? ? head:=0;tail:=1;
? ? father[1]:=1;f[1]:=true;state[1]:=0;
? ? repeat
? ? ? ? ?inc(head);
? ? ? ? ?for i:=1 to n do
? ? ? ? ?if (a[father[head],i]=true)and(f[i]=false) then
? ? ? ? ?begin
? ? ? ? ? ? ?inc(tail);
? ? ? ? ? ? ?f[i]:=true;
? ? ? ? ? ? ?father[tail]:=i;
? ? ? ? ? ? ?state[i]:=state[father[head]]+1;
? ? ? ? ?end;
? ? until (f[n]=true)or(head=tail);
? ? if f[n]=true then write(state[n]-1) else write('NO');
end;


begin
? ? init;
? ? bfs;
end.

轉(zhuǎn)載于:https://www.cnblogs.com/YYC-0304/p/9500232.html

總結(jié)

以上是生活随笔為你收集整理的最优乘车pascal程序的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。