城市交通

题目：

Description

　　有n个城市，编号1~n，有些城市之间有路相连，有些则没有，有路则当然有一个距离。现在规定只能从编号小的城市到编号大的城市，问你从编号为1的城市到编号为n的城市之间的最短距离是多少？

Input

先输入一个n，表示城市数，n小于100。
下面的n行是一个n*n的邻接矩阵map[i,j],其中map[i,j]=0表示城市i和城市j之间没有路相连，否则为两者之间的距离。

Output

输出格式：一个数，表示最少要多少时间。
输入数据保证可以从城市1飞到城市n。

作者思路：

最短路，递推公式：f[i]=min{f[j]+map[j,i]}
f=maxint;

代码：

var map:array[0..101,0..101] of longint;
    f:array[0..101] of longint;
    n,i,j,m:longint;
function min(x,y:longint):longint;
begin
  if x>y then exit(y) else exit(x);
end;
begin
  read(n);
  for i:=1 to n do
    for j:=1 to n do
      read(map[i,j]);
  for i:=2 to n do
  begin
    m:=maxint;
    for j:=1 to i-1 do
      if map[j,i]<>0 then m:=min(m,f[j]+map[j,i]);
    f[i]:=m;
  end;
  write(f[n]);
end.