热浪（图论算法）

Description

德克萨斯纯朴的民眾们这个夏天正在遭受巨大的热浪！！！他们的德克萨斯长角牛吃起来不错，可是他们并不是很擅长生產富含奶油的乳製品。FarmerJohn此时以先天下之忧而忧，后天下之乐而乐的精神，身先士卒地承担起向德克萨斯运送大量的营养冰凉的牛奶的重任，以减轻德克萨斯人忍受酷暑的痛苦。 
FJ已经研究过可以把牛奶从威斯康星运送到德克萨斯州的路线。这些路线包括起始点和终点先一共经过T (1 <= T <= 2,500)个城镇，方便地标号為1到T。除了起点和终点外地每个城镇由两条双向道路连向至少两个其它地城镇。每条道路有一个通过费用（包括油费，过路费等等）。考虑这个有7个城镇的地图。城镇5是奶源，城镇4是终点（括号内的数字是道路的通过费用）。 
　　　　　　　　　　　　　　 [1]----1---[3]- 
　　　　　　　　　　　　　　 /　　　　　 \ 
　　　　　　　　　　 [3]---6---[4]---3--[3]--4 
　　　　　　　　　　 /　　　　　　 /　　 /| 
　　　　　　　　　　5　　　　 --[3]-- --[2]- | 
　　　　　　　　　　 \　　 /　　　　/　　 | 
　　　　　　　　　　 [5]---7---[2]--2---[3]--- 
　　　　　　　　　　　　　　|　　 / 
　　　　　　　　　　　　 　 [1]------ 
经过路线5-6-3-4总共需要花费3 (5->6) + 4 (6->3) + 3 (3->4) = 10的费用。 
给定一个地图，包含C (1 <= C <= 6,200)条直接连接2个城镇的道路。每条道路由道路的起点Rs，终点Re (1 <= Rs <= T; 1 <= Re <= T)，和花费(1 <= Ci <= 1,000)组成。求从起始的城镇Ts (1 <= Ts <= T)到终点的城镇Te(1 <= Te <= T)最小的总费用。 

Input

第一行: 4个由空格隔开的整数: T, C, Ts, Te 
第2到第C+1行: 第i+1行描述第i条道路。有3个由空格隔开的整数: Rs, Re和Ci 

Output

第一行: 一个单独的整数表示Ts到Te的最短路的长度。（不是费用麼？怎麼突然变直白了 
——译者注）数据保证至少存在一条道路。 

Sample Input

 

 

Sample Output

 

读入数据，在数组里面进行标记，然后用Dijkstra算法进行计算，最后输出答案即可。

程序：

const

  maxn=2500;

var

  a:array[1..maxn,1..maxn] of longint;

  dis:array[1..maxn] of longint;

  v:array[1..maxn] of boolean;

  t,c,s,e,x,y,z,i:longint;

procedure dij;

  var

    u,i,min,x:longint;

  begin

    x:=s;

    v[x]:=true;

    repeat

      u:=0;

      min:=maxlongint;

      for i:=1 to t do

        if (not v[i]) and (dis[i]

          begin

            u:=i;

            min:=dis[i];

          end;

      if u<>0 then

        begin

          v[u]:=true;

          for i:=1 to t do

            if (not v[i]) and (dis[u]+a[u,i]

        end;

    until u=0;

end;

begin

  readln(t,c,s,e);

  fillchar(a,sizeof(a),$7f);

  for i:=1 to c do

    begin

      readln(x,y,z);

      a[x,y]:=z;

      a[y,x]:=z;

    end;

  for i:=1 to t do

    dis[i]:=a[s,i];

  dij;

  writeln(dis[e]);

end.

版权属于: Chris

原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v0zj.html

转载时必须以链接形式注明原始出处及本声明。