usaco 2.4 bessie come home

最新推荐文章于 2024-08-11 21:24:32 发布

波波i

最新推荐文章于 2024-08-11 21:24:32 发布

阅读量473

点赞数 4

分类专栏： usaco 文章标签： pascal usaco

本文链接：https://blog.csdn.net/qq872425710/article/details/52025096

版权

usaco 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

usaco 2.4 bessie come home

现在是晚餐时间,而母牛们在外面分散的牧场中。农民约翰按响了电铃,所以她们开始向谷仓走去。你的工作是要指出哪只母牛会最先到达谷仓(在给出的测试数据中,总会有且只有一只最快的母牛)。在挤奶的时候(晚餐前),每只母牛都在她自己的牧场上,一些牧场上可能没有母牛。

每个牧场由一条条道路和一个或多个牧场连接(可能包括自己)。有时，两个牧场(可能是字母相同的)之间会有超过一条道路相连。至少有一个牧场和谷仓之间有道路连接。因此,所有的母牛最后都能到达谷仓,并且母牛总是走最短的路径。当然,母牛能向着任意一方向前进,并且她们以相同的速度前进。

牧场被标记为'a'..'z'和'A'..'Y',在用大写字母表示的牧场中有一只母牛,小写字母中则没有。谷仓的标记是'Z',注意没有母牛在谷仓中。

注意'm'和'M'不是同一个牧场,否则错误

上面的意思是说：输入数据中可能会同时存在M,m，比如

PROGRAM NAME: comehome

INPUT FORMAT: (filecomehome.in)

第 1 行: 整数 P(1<=P<=10000),表示连接牧场(谷仓)的道路的数目。

第 2 ..P+1行: 用空格分开的两个字母和一个整数:

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

OUTPUT FORMAT: (filecomehome.out)

单独的一行包含二个项目:

最先到达谷仓的母牛所在的牧场的标记,和这只母牛走过的路径的长度。

SAMPLE INPUT

A d 6

B d 3

C e 9

d Z 8

e Z 3

SAMPLE OUTPUT

B 11

这题很简单，数据很小，就52，直接弗洛伊德就可以了，为了方便就把字符串转换成数字，

第一次就是没转换，然后就有一些某明奇妙的错误。

var
 a:array [1..52,1..52] of longint;
 n,x,min,p,q:longint;
 ii:longint;
 i,j,k:longint;
 s,s1,o:char;
begin
 assign(input,'comehome.in'); reset(input);
 assign(output,'comehome.out');rewrite(output);
 readln(n);
 min:=maxlongint;
 fillchar(a,sizeof(a),$7f div 3);
 for ii:=1 to n do
  begin
   readln(s,o,s1,x);
   if (s>='a') and (s<='z') then  p:=ord(s)-70 else p:=ord(s)-64;
   if (s1>='a') and (s<='z') thenq:=ord(s1)-70 else q:=ord(s1)-64;
   if a[p,q]>x then begin a[p,q]:=x;a[q,p]:=x; end;
 end;
  for k:=1 to 52 do
    for i:=1 to 52 do
     for j:=1 to  52do
     if (i<>j) and (j<>k) and(k<>i) then
      if a[i,j]>a[i,k]+a[k,j] thena[i,j]:=a[i,k]+a[k,j];
 
 for i:=1 to 25 do
  if a[i,26]<min then begin s:=chr(i+64);min:=a[i,26];   end;
 writeln(s,' ',min);
 close(input); close(output);
end.