SSL 1614——医院设置[最短路]

Description

　　设有一棵二叉树（如右图）。其中，圈中的数字表示结点中居民的人口。圈边上数字表示结点编号，现在要求在某个结点上建立一个医院，使所有居民所走的路程之和为最小，同时约定，相邻接点之间的距离为1。如 右图中，若医院建在：
　　1处，则距离和=4+12+2*20+2*40=136
　　3处，则距离和=4*2+13+20+40=81
　　　 ………….

Input

第一行一个整数n，表示树的结点数。（n<=100）
接下来的n行每行描述了一个结点的状况，包含三个整数，整数之间用空格（一个或多个）分隔，其中：第一个数为居民人口数；第二个数为左链接，为0表示无链接；第三个数为右链接。　　

Output

一个整数，表示最小距离和。

Sample Input

5
13 2 3
4 0 0
12 4 5
20 0 0
40 0 0
Sample Output

81

---

Floyd

---

代码如下：

var
  a:array [0..101,0..101] of longint;
  b:array [0..101] of longint;
  f:array [0..101] of boolean;
  n,m,min:longint;
procedure init;
var
  i,j:longint;
begin
  readln(n,m);
  m:=m+1;
  for i:=1 to n do
    for j:=1 to n do
      begin
        read(a[i,j]);
        if a[i,j]=-1 then a[i,j]:=maxlongint;
      end;
end;

procedure main;
var
  i,j,t:longint;
begin
  for i:=1 to n do
    b[i]:=a[m,i];
  fillchar(f,sizeof(f),true);
  f[m]:=false;
  for i:=1 to n-1 do
    begin
      min:=maxlongint;
      for j:=1 to n do
        if f[j] and (b[j]<min) then
          begin
            min:=b[j];
            t:=j;
          end;
      f[t]:=false;
      for j:=1 to n do
        if f[j] and (a[t,j]<>maxlongint) and (b[t]+a[t,j]<b[j]) then
          b[j]:=b[t]+a[t,j];
    end;
  for i:=1 to n do
    write(b[i],' ');
end;

begin
  init;
  main;
end.