比赛 |
20121107 |
评测结果 |
AAAAA |
题目名称 |
小树 |
最终得分 |
100 |
用户昵称 |
limitation |
运行时间 |
0.112 s |
代码语言 |
Pascal |
内存使用 |
3.99 MiB |
提交时间 |
2012-11-07 10:53:00 |
显示代码纯文本
program treec;
var t,loop,x,y,w,i,ans,road,n,k:longint;
l,max:real;
a:array[0..1000,0..1000]of longint;
f:array[0..1000]of longint;
begin
assign(input,'treec.in');
reset(input);
assign(output,'treec.out');
rewrite(output);
read(t);
for loop:=1 to t do
begin
fillchar(f,sizeof(f),255);
fillchar(a,sizeof(a),0);
read(n);
for i:=1 to n-1 do
begin
read(x,y,w);
f[y]:=x;
a[x,y]:=w;
end;
f[0]:=-2;
max:=0;
for i:=1 to n do
begin
k:=i;
ans:=0;
road:=0;
l:=0;
while f[k]<>-2 do
begin
inc(ans);
inc(road,a[f[k],k]);
k:=f[k];
if k=-1 then
begin
ans:=0;
road:=0;
end;
end;
if ans<>0 then l:=road/ans;
if l>max then max:=l;
end;
writeln(max:0:2);
end;
close(input);
close(output);
end.