【USACO题库】2.4.4 Bessie Come Home回家

题目描述：

题目描述

现在是晚餐时间,而母牛们在外面分散的牧场中。
农民约翰按响了电铃,所以她们开始向谷仓走去。
你的工作是要指出哪只母牛会最先到达谷仓(在给出的测试数据中,总会有且只有一只速度最快的母牛)。
在挤奶的时候(晚餐前),每只母牛都在她自己的牧场上,一些牧场上可能没有母牛。
每个牧场由一条条道路和一个或多个牧场连接(可能包括自己)。
有时，两个牧场(可能是自我相同的)之间会有超过一条道路相连。
至少有一个牧场和谷仓之间有道路连接。
因此,所有的母牛最后都能到达谷仓,并且母牛总是走最短的路径。
当然,母牛能向着任意一方向前进,并且她们以相同的速度前进。
牧场被标记为'a'..'z'和'A'..'Y',在用大写字母表示的牧场中有一只母牛,小写字母中则没有。
谷仓的标记是'Z',注意没有母牛在谷仓中。

INPUT FORMAT

第 1 行:整数 P(1<= P<=10000),表示连接牧场(谷仓)的道路的数目。第 2 ..P+1行:用空格分开的两个字母和一个整数:

被道路连接牧场的标记和道路的长度(1<=长度<=1000)。

SAMPLE INPUT (file comehome.in)

5
A d 6
B d 3
C e 9
d Z 8
e Z 3

OUTPUT FORMAT

单独的一行包含二个项目:
最先到达谷仓的母牛所在的牧场的标记,和这只母牛走过的路径的长度。

SAMPLE OUTPUT (file comehome.out)

B 11

解题思路：

     这道题是最短路径的经典例题，还是挺水的那种，战斗力只有100的n。最容易想到了富咯医德(floyd)的算法,算出每个农场之间的最短路径,最后输出一条是大写符号为出发点到达Z农场的最短路径,当然,有时间的大神可以考虑用SPFA和DIJ的高级算法(然并卵)

代码实现:

<span style="font-size:14px;background-color: rgb(255, 255, 255);">var        f:array['A'..'z','A'..'z'] of longint;//用来存两个农场之间的最短路径        n,kk,x,max:longint;        ch,ch1,c,i,j,k,max1:char;begin        readln(n);        for i:='A' to 'z' do                for j:='A' to 'z' do                        f[i,j]:=maxint;//初值        for kk:=1 to n do        begin                readln(ch,c,ch1,c,x);                if f[ch,ch1]>x then                begin                        f[ch,ch1]:=x;                        f[ch1,ch]:=x;//一定要两边都要这样做,因为这是无向边                end;        end;        for k:='A' to 'z' do                for i:='A' to 'z' do                        for j:='A' to 'z' do                                if f[i,j]>f[i,k]+f[k,j] then                                        f[i,j]:=f[i,k]+f[k,j];//floyd        max:=maxint;        for i:='A' to 'Y' do                if f[i,'Z']<max then                begin                        max:=f[i,'Z'];                        max1:=i;                end;//记录输出,神奇水过        writeln(max1,' ',max);end.</span>