JZOJ1274.【USACO题库】2.4.4 Bessie Come Home回家

最新推荐文章于 2022-01-06 14:03:32 发布

原创最新推荐文章于 2022-01-06 14:03:32 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#usaco

usaco 专栏收录该内容

31 篇文章

订阅专栏

本篇介绍了一道经典的最短路径算法题目——母牛归巢问题。任务是找出哪只母牛能最快到达谷仓，并计算其行走的最短距离。文章通过解析示例输入输出，给出了具体的实现思路。

题目描述

现在是晚餐时间,而母牛们在外面分散的牧场中。

农民约翰按响了电铃,所以她们开始向谷仓走去。

你的工作是要指出哪只母牛会最先到达谷仓(在给出的测试数据中,总会有且只有一只速度最快的母牛)。

在挤奶的时候(晚餐前),每只母牛都在她自己的牧场上,一些牧场上可能没有母牛。

每个牧场由一条条道路和一个或多个牧场连接(可能包括自己)。

有时，两个牧场(可能是自我相同的)之间会有超过一条道路相连。

至少有一个牧场和谷仓之间有道路连接。

因此,所有的母牛最后都能到达谷仓,并且母牛总是走最短的路径。

当然,母牛能向着任意一方向前进,并且她们以相同的速度前进。

牧场被标记为’a’..’z’和’A’..’Y’,在用大写字母表示的牧场中有一只母牛,小写字母中则没有。

谷仓的标记是’Z’,注意没有母牛在谷仓中。

PROGRAM NAME: comehome

INPUT FORMAT

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

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

SAMPLE INPUT (file comehome.in)

A d 6

B d 3

C e 9

d Z 8

e Z 3

OUTPUT FORMAT

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

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

SAMPLE OUTPUT (file comehome.out)

B 11

输入

输出

样例输入

样例输出

数据范围限制

这道题是很久以前做的了，现在写一写
一道裸的最短路，注意两个牧场间取最短的路，才只有26个点，AC妥妥的

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