医院设置

医院设置
Time Limit:10000MS Memory Limit:65536K
Total Submit:90 Accepted:68
Case Time Limit:1000MS

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

---

先建二叉树，再将各点逐一BFS，最后取最小。

---

var
  a:array[0..101,0..3]of longint;
  f:array[0..101]of boolean;
  q:array[0..101,1..2]of longint;
  ans,min,n,i,j,k,h,t:longint;
begin
  readln(n);
  for i:=1 to n do
  begin
    readln(a[i,0],a[i,1],a[i,2]);
    if a[i,1]<>0 then a[a[i,1],3]:=i;
    if a[i,2]<>0 then a[a[i,2],3]:=i;
  end;
  min:=maxlongint;
  for i:=1 to n do
  begin
    fillchar(f,sizeof(f),true);
    ans:=0; f[i]:=false;
    h:=0; t:=1;
    q[1,1]:=i;q[1,2]:=0;
    while h<t do
    begin
      inc(h);
      for j:=1 to 3 do
      begin
        k:=a[q[h,1],j];
        if k<=0 then continue;
        if f[k] then
        begin
          inc(t);
          f[k]:=false;
          q[t,1]:=k;
          q[t,2]:=q[h,2]+1;
          ans:=ans+a[k,0]*q[t,2];
        end;
      end;
    end;
    if min>ans then min:=ans;
  end;
  writeln(min);
end.