信使（图论算法）

Description

战争时期，前线有n 个哨所，每个哨所可能会与其他若干个哨所之间有通信联系。信使负责 在哨所之间传递信息，当然，这是要花费一定时间的（以天为单位）。指挥部设在第一个哨所。当指挥部下达一个命令后，指挥部就派出若干个信使向与指挥部相连的哨所送信。当一个哨所接到信后，这个哨所内的信使们也以同样的方式向其他哨所送信。直至所有n个哨所全部接到命令后，送信才算成功。因为准备充足，每个哨所内都安排了足够的信使（如果一个哨所与其他k个哨所有通信联系的话，这个哨所内至少会配备k个信使）。 
现在总指挥请你编一个程序，计算出完成整个送信过程最短需要多少时间。

Input

输入文件 msner.in，第 1 行有两个整数 n 和 m，中间用 1 个空格隔开，分别表示有 n 个 哨所和m条通信线路。1<=n<=100。 第 2 至 m+1 行：每行三个整数 i、j、k，中间用 1 个空格隔开，表示第 i 个和第 j 个哨所 之间存在通信线路，且这条线路要花费k 天。

Output

输出文件 msner.out，仅一个整数，表示完成整个送信过程的最短时间。如果不是所有的 哨所都能收到信，就输出-1。

Sample Input

 

4 

1 2 4 

2 3 7 

2 4 1 

3 4 6

 

Sample Output

 

先把数组初始化，读入数据，然后用Dijkstra算法，最后进行对比输出即可。

程序：

const

  maxn=100;

var

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

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

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

  max,i,x,y,n,m:longint;

procedure dij;

  var

    u,min,i,x:longint;

  begin

    x:=1;

    v[x]:=true;

    repeat

      u:=0;

      min:=maxlongint;

      for i:=1 to n do

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

          begin

            min:=dis[i];

            u:=i;

          end;

      if u<>0 then

        begin

          v[u]:=true;

          for i:=1 to n do

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

        end;

    until u=0;

end;

begin

  readln(n,m);

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

  for i:=1 to m do

    begin

      readln(x,y,a[x,y]);

      a[y,x]:=a[x,y];

    end;

  for i:=1 to n do

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

  dij;

  max:=0;

  for i:=2 to n do

    if dis[i]>max then

      max:=dis[i];

  writeln(max);

end.

版权属于: Chris

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

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