[POJ1125 Stockbroker Grapevine]

[题目来源]：Southern African 2001

[关键字]：图论

[题目大意]：股票经纪人要在一群人中散布一个传言，传言只能在认识的人中传递，题目将给出人与人的关系（是否认识），以及传言在某两个认识的人中传递所需的时间，要求程序给出以哪个人为起点，可以在好事最短的情况下，让所有人收到消息。

//====================================================================================================

[分析]：先用foyd求出多源最短路，然后枚举每一个作为起点并判断此时所需的最短时间，最后取出最优值。注意如果有一个点到其他点的最小值的最大值（所用最短时间）是maxlongint，则说明此图不连通输出无解。

[代码]：

{
PROB:POJ1125
DATE:2011\10\15
}
program Project1;
const
  INF = 1684300900;
var
  n: longint;
  map: array[0..200,0..200] of longint;

procedure init;
var
  i, j, t, x, d: longint;
begin
  readln(n);
  if n = 0 then halt;
  fillchar(map,sizeof(map),100);
  for i := 1 to n do
    begin
      read(t);
      for j := 1 to t do
        begin
          read(x,d);
          map[i,x] := d;
        end;
    end;
end;

procedure floyd;
var
  k, i, j, max, ans, p: longint;
  f: boolean;
begin
  for k := 1 to n do
    for i := 1 to n do
      for j := 1 to n do
        if (i <> j) and (map[i,k] <> INF) and (map[k,j] <> INF) then
          if map[i,j] > map[i,k]+map[k,j] then map[i,j] := map[i,k]+map[k,j];
  ans := maxlongint;
  for i := 1 to n do
    begin
      max := 0;
      for j := 1 to n do
        if (max < map[i,j]) and (i <> j) then max := map[i,j];
      if max < ans then
        begin
          ans := max;
          p := i;
        end;
    end;
  if ans = INF then writeln('disjoint') else writeln(p,'',ans);
end;

begin
  while 1 = 1 do
    begin
      init;
      floyd;
    end;
end.