| 比赛 | 
    20110722 | 
    评测结果 | 
    AWAWEWWEEEEEEEEEE | 
    | 题目名称 | 
    网络探测 | 
    最终得分 | 
    11 | 
    | 用户昵称 | 
    echo | 
    运行时间 | 
    0.000 s  | 
    | 代码语言 | 
    Pascal | 
    内存使用 | 
    0.00 MiB  | 
    | 提交时间 | 
    2011-07-22 11:56:01 | 
显示代码纯文本
program ping;
var
  n,m,t,i,j,k,e,ans:longint;
  g:array[0..100,0..100] of longint;
begin
  assign(input,'ping.in');
  assign(output,'ping.out');
  reset(input);
  rewrite(output);
  readln(n,m,t);
  for i:=0 to n-1 do
    for j:=0 to n-1 do
      if i<>j then g[i,j]:=1000000000
              else g[i,j]:=0;
  for k:=1 to m do
    begin
      readln(i,j,e);
      g[i,j]:=e;
    end;
  for k:=0 to n-1 do
    for i:=0 to n-1 do
      for j:=0 to n-1 do
        if g[i,j]>g[i,k]+g[k,j]
          then g[i,j]:=g[i,k]+g[k,j];
   writeln(g[0,t]);
   close(input);
   close(output);
end.