回家 (Standard IO)

题意/Description:

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

 

读入/Input：

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

 

输出/Output：

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

 

题解/solution：

       将英文字母转为数值，然后做一遍floyd。

 

代码/Code：

var
  n:longint;
  a:array[0..52,0..52] of longint;
function try1(ch:char):boolean;
begin
  if (ch>='A') and (ch<='Z') then exit(true);
  exit(false);
end;

function min(o,p:longint):longint;
begin
  if o<p then exit(o);
  exit(p);
end;

procedure init;
var
  i,x,y,z:longint;
  c1,c2:char;
begin
  fillchar(a,sizeof(a),$7f div 3);
  readln(n);
  for i:=1 to n do
    begin
      read(c1); read(c2); read(c2);
      readln(z);
      if try1(c1) then x:=ord(c1)-64 else x:=ord(c1)-70;
      if try1(c2) then y:=ord(c2)-64 else y:=ord(c2)-70;
      a[x,y]:=min(a[x,y],z);
      a[y,x]:=min(a[x,y],a[y,x]);
    end;
end;

procedure main;
var
  i,j,k,ans:longint;
  ch:char;
begin
  for k:=1 to 52 do
    for i:=1 to 52 do
      for j:=1 to 52 do
        if (k<>i) and (k<>j) and (i<>j) then
          if (a[i,k]<>a[0,0]) and (a[k,j]<>a[0,0]) then
            a[i,j]:=min(a[i,j],a[i,k]+a[k,j]);
  ans:=maxlongint;
  for i:=1 to 25 do
    if a[i,26]<ans then begin ans:=a[i,26]; ch:=chr(i+64); end;
  writeln(ch,' ',ans);
end;

begin
  init;
  main;
end.