jzoj_1001_最难的问题_Floyd

Description

　　这是一个很难的问题，你要找出“12345678987654321！”答案里一共含有多少个“0”，“！”表示阶乘的意思。
　　其实，我是在开玩笑的，地球上没有人真正能成功的解决这个问题。
　　实际上，我是一个间谍，我从敌人手中偷取了一些很重要的秘密，我只想以尽量少的时间离开敌人的基地。
敌人的基地地图可以用一张网络图表示，交叉路口可表示为结点，通路可表示为边，我需要从基地总部逃出到撤离点。到底怎样走才最快呢？幸好我有一台超强的掌上电脑，请尽快帮我解决这个问题！

Input

　　数据第一行是两个整数N和M，(1<=N<=200，0<=M<=10000)，分别表示交叉路口数量与通路数量。接下来M行每行有三个整数i，j，k（i!=j，1<=k<=10000），表示有一条长度为k的无向通路连接路口i与路口j。注意路口i与路口j间可能有多条不同长度的通路。
你可以假定交叉路口是用1到n的整数来标识的，编号1是基地总部，编号n是撤离

Output

　　输出只有一个整数，为最短的逃离距离，如果不可能逃出，则输出“-1”。

Solutions

练个手而已，见代码

代码

var
  n,m:longint;
  a:array [0..201,0..201] of longint;
function min(o,p:longint):longint;
begin
  if o<p then exit(o);
  exit(p);
end;

procedure init;
var
  i,x,y,z:longint;
begin
  fillchar(a,sizeof(a),63);
  readln(n,m);
  for i:=1 to m do
    begin
      readln(x,y,z);
      a[x,y]:=min(a[x,y],z);
      a[y,x]:=min(a[y,x],z);
    end;
  for i:=1 to n do
    a[i,i]:=0;
end;

procedure floyd;
var
  i,j,k:longint;
begin
  for k:=1 to n do
    for i:=1 to n do
      for j:=1 to n do
        a[i,j]:=min(a[i,j],a[i,k]+a[k,j]);
end;

begin
  init;
  floyd;
  if a[1,n]=a[0,0] then writeln('-1')
                   else writeln(a[1,n]);
end.