记录编号 49193 评测结果 AAAAA
题目名称 小树 最终得分 100
用户昵称 GravatarVow Ryan 是否通过 通过
代码语言 Pascal 运行时间 0.007 s
提交时间 2012-11-07 14:43:08 内存使用 0.15 MiB
显示代码纯文本
var 
 head,next,v,w:array[0..2000]of longint;
 i,j,k,l,m,n,cnt,p,t:longint;
 ans:double;
 
procedure addedge(x,y,z:longint);
 begin
  inc(cnt);
  w[cnt]:=y;v[cnt]:=z;
  next[cnt]:=head[x];
  head[x]:=cnt;
 end;

procedure dfs(x,dep:longint;d:int64);
 var
  i:longint;
 begin
  if x<>0 then
   if ans<d/dep then ans:=d/dep;
  i:=head[x];
  while i<>0 do
   begin
    dfs(w[i],dep+1,d+v[i]);
    i:=next[i];
   end;
 end;

begin
 assign(input,'treec.in');reset(input);
 assign(output,'treec.out');rewrite(output);
 read(t);
 for p:=1 to t do
  begin
   fillchar(head,sizeof(head),0);
   read(n);
   if n=1 then ans:=0 else ans:=-100000000000;
   cnt:=0;
   for i:=1 to n-1 do
    begin
     read(j,k,l);
     addedge(j,k,l);
    end;
   dfs(0,0,0);
   writeln(ans:0:2);
  end;
 close(output);
end.