比赛 20121107 评测结果 AAAAA
题目名称 最难的任务 最终得分 100
用户昵称 digital-T 运行时间 2.273 s
代码语言 Pascal 内存使用 0.24 MiB
提交时间 2012-11-07 10:46:26
显示代码纯文本
var
t,n,m,q,i,j,a,b,k:integer;
f:array[0..201,0..201]of integer;
begin
assign(input,'hardest.in');reset(input);
assign(output,'hardest.out');rewrite(output);
read(t);
for q:=1 to t do
 begin
  read(n,m);
  //+++++++++++++++++++++++++++++
  for i:=1 to n do
   for j:=1 to n do
    if i=j then f[i,j]:=0
    else f[i,j]:=-1;
  //+++++++++++++++++++++++++++++
  for i:=1 to m do
   begin
    read(a,b,k);
    if (f[a,b]>k)or(f[a,b]=-1) then
     begin  f[a,b]:=k;f[b,a]:=k;end;
   end;
  //+++++++++++++++++++++++++++++
  for k:=1 to n do
   for i:=1 to n do
    if (i<>k)and(f[i,k]>-1) then
     for j:=1 to n do
      if ((f[i,j]=-1)and(f[j,k]>-1))or((i<>j)and(j<>k)and(f[i,j]>-1)and(f[j,k]>-1)and(f[i,k]+f[j,k]<f[i,j]))then
       f[i,j]:=f[i,k]+f[j,k];f[j,i]:=f[i,j];
  //+++++++++++++++++++++++++++++
   writeln(f[1,n]);
 end;
close(input);close(output);
end.