Bessie Come Home回家 NOIP题解-Toy模板网

这篇具有很好参考价值的文章主要介绍了Bessie Come Home回家 NOIP题解。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

Bessie Come Home回家

(comehome.pas)

【问题描述】

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

注意'm'和'M'不是同一个牧场否则错误上面的意思是说：输入数据中可能会同时存在M,m（郁闷ing)，比如

M a a m m z

【输入格式】(comehome.in)

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

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

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

【输出格式】(comehome.out)

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

【样例输入】(comehome.in)

A d 6

B d 3

C e 9

d Z 8

e Z 3

【样例输出】

B 11

【思路分析】

此题可以简化为一个求最短路的算法：

把‘Z’ 点当做一个根节点然后用迪斯卡尔算法求到每一个‘A'..’Y' 中最小值即可！！

【参考程序】文章来源地址https://www.toymoban.com/news/detail-668016.html

var dist:array['A'..'z','A'..'z'] of longint;
    n,m,max,d,min:longint;
    v:array['A'..'z'] of boolean;
    vv:array['A'..'Z'] of boolean;
    i,j,k:char;
    ch1,ch2,ch:char;
begin
  assign(input,'comehome.in');reset(input);
  assign(output,'comehome.out');rewrite(output);
  readln(n);
   fillchar(vv,sizeof(vv),false);
   fillchar(v,sizeof(v),false);
   for d:=1 to n do
    begin
     readln(ch1,ch,ch2,min);
     if (dist[ch1,ch2]<>0)and(dist[ch1,ch2]<min) then  dist[ch1,ch2]:=dist[ch1,ch2];
     if (dist[ch1,ch2]<>0)and(dist[ch1,ch2]>min) then  dist[ch1,ch2]:=min;
     if dist[ch1,ch2]=0 then dist[ch1,ch2]:=min;
     dist[ch2,ch1]:=dist[ch1,ch2];
     if (ch1>='A')and(ch1<='Z') then
      vv[ch1]:=true;
    end;
   v['Z']:=true;
   for i:='A' to 'z' do
    begin
      if (ord(i)>90)and(ord(i)<97) then continue;
       max:=maxlongint;
      for j:='A' to 'z' do
        if (dist['Z',j]<>0)and(dist['Z',j]<max)and(not v[j]) then
         begin
          max:=dist['Z',j];
          k:=j;
         end;
      v[k]:=true;
     for j:='A' to 'z' do
      if dist[k,j]>0 then
       if (dist['Z',k]+dist[k,j]<dist['Z',j])or(dist['Z',j]=0) then
        dist['Z',j]:=dist['Z',k]+dist[k,j];
    end;
     min:=maxlongint;
   for i:='A' to 'Y' do
   if vv[i] then
    begin
     if (dist['Z',i]<min)and(dist['Z',i]<>0) then
      begin
       k:=i;
       min:=dist['Z',i];
      end;
    end;
  writeln(k,' ',min);
 close(input); close(output);
end.

到了这里，关于Bessie Come Home回家 NOIP题解的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！