SSL 1120——【USACO 2.4】回家[最短路]

Description

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

Input

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

Output

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

Sample Input

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

B 11

---

不要被表面所迷惑！
不要被表面所迷惑！
不要被表面所迷惑！

这题其实只是一个（26+26）*（26+26）的方阵
就是一个Floyd就可以过
再从每一个点（大写字母）出发的奶牛到‘Z’找到一个最快的即可

---

代码如下：

var   n,m,z,max:longint;
      k,i,j,x,kong,y,ans:char;
      a:array['A'..'z','A'..'z']of longint;
begin
  readln(n);
  for m:=1 to n do
    begin
      readln(x,kong,y,z);
      if (a[x,y]>z)or(a[x,y]=0) then
        begin
          a[x,y]:=z;
          a[y,x]:=z;
        end;
    end;
  for k:='A' to 'z' do
    for i:='A' to 'z' do
      for j:='A' to 'z' do
        if (i<>j)and(i<>k)and(j<>k) then
          if (a[i,k]<>0)and(a[k,j]<>0) then
            if (a[i,j]=0)or(a[i,j]>a[i,k]+a[k,j]) then begin a[i,j]:=a[i,k]+a[k,j]; a[j,i]:=a[i,j]; end;
  max:=maxlongint;
  for i:='A' to 'Y' do
    if (a['Z',i]<max)and(a['Z',i]<>0) then begin ans:=i; max:=a['Z',i]; end;
  write(ans,' ',max);
end.