医院设置

最新推荐文章于 2023-09-14 16:05:14 发布

sslgzzzy

最新推荐文章于 2023-09-14 16:05:14 发布

阅读量427

点赞数

分类专栏：图

本文链接：https://blog.csdn.net/sslgzzzy/article/details/70059709

版权

图专栏收录该内容

13 篇文章 0 订阅

订阅专栏

医院设置

Time Limit:10000MS Memory Limit:65536K
Total Submit:105 Accepted:79
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

Sample Output

var
 a:array[1..100]of longint;
 f:array[1..100,1..100]of longint;
 i,j,k,n,x,y,min,s:longint;
begin
 read(n);
 for i:=1 to n do
  for j:=1 to n do
   f[i,j]:=maxlongint div 3;
 for i:=1 to n do
  begin
   readln(a[i],x,y);
   if x<>0 then begin f[x,i]:=1; f[i,x]:=1; end;//没有左节点
   if y<>0 then begin f[y,i]:=1; f[i,y]:=1; end;//没有右节点
  end;
 for k:=1 to n do//Floyd找i到j的距离
  for i:=1 to n do
   for j:=1 to n do
    if f[i,j]>f[i,k]+f[k,j] then f[i,j]:=f[i,k]+f[k,j];
 min:=maxlongint;
 for i:=1 to n do
  begin
   s:=0;
   for j:=1 to n do
    if (i<>j) then
    s:=s+f[i,j]*a[j];//总距离=距离*人数
   if s<min then min:=s;
  end;
 write(min);
end.