fork download
  1. uses math;
  2. const maxc=10000;
  3. var n,i,j,t,u:longint;
  4. fi,fo:text;
  5. f:array[0..1020]of longint;
  6. c:array[0..1020,0..1020]of longint;
  7. procedure init;
  8. var v:longint;
  9. begin
  10. fillchar(c,sizeof(c),0);
  11. for v:=1to n do f[v]:=maxc;
  12. end;
  13.  
  14. procedure dfs(u:longint);
  15. var v:longint;
  16. begin
  17. for v:=1to n do
  18. if c[u,v]<>0 then
  19. begin
  20. c[v,u]:=0;
  21. dfs(v);
  22. if f[u]=maxc then f[u]:=0;
  23. f[u]:=f[u]+min(f[v],c[u,v]);
  24. end;
  25. end;
  26.  
  27. begin
  28. assign(fi,'t.inp');reset(fi);
  29. assign(fo,'t.out');rewrite(fo);
  30. readln(fi,t);
  31. for i:=1to t do
  32. begin
  33. readln(fi,n);
  34. init;
  35. for j:=2to n do
  36. begin
  37. readln(fi,u,c[u,j]);
  38. c[j,u]:=c[u,j];
  39. end;
  40. dfs(1);
  41. writeln(fo,f[1],'.00');
  42. end;
  43. close(fi);close(fo);
  44. end.
  45.  
  46.  
Runtime error #stdin #stdout 0s 4512KB
stdin
Standard input is empty
stdout
An unhandled exception occurred at $080481CE :
EInOutError : File not found
  $080481CE