(ssl1636)城市交通

最新推荐文章于 2023-06-18 21:10:07 发布

原创最新推荐文章于 2023-06-18 21:10:07 发布 · 418 阅读

0 ·

CC 4.0 BY-SA版权

SSL水题收割机(上课作业) 专栏收录该内容

53 篇文章

订阅专栏

本文介绍了一个关于城市间最短路径的经典问题及其算法实现。问题设定在一个包含n个城市的网络中，每个城市都有唯一的编号，并且只能从编号较小的城市到达编号较大的城市。通过给出的邻接矩阵，算法寻找从起始城市到目标城市的最短路径。

城市交通

Time Limit:1000MS Memory Limit:65536K
Total Submit:101 Accepted:91

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。

Sample Input

11
0 5 3 0 0 0 0 0 0 0 0
5 0 0 1 6 3 0 0 0 0 0
3 0 0 0 8 0 4 0 0 0 0
0 1 0 0 0 0 0 5 6 0 0
0 6 8 0 0 0 0 5 0 0 0
0 3 0 0 0 0 0 0 0 8 0
0 0 4 0 0 0 0 0 0 3 0
0 0 0 5 5 0 0 0 0 0 3
0 0 0 6 0 0 0 0 0 0 4
0 0 0 0 0 8 3 0 0 0 3
0 0 0 0 0 0 0 3 4 3 0

Sample Output

Source

elba

var
 f:array[1..100]of longint;
 a:array[1..100,1..100]of longint;
 i,j,n,min:longint;
begin
 read(n);
 for i:=1 to n do
  for j:=1 to n do
   read(a[i,j]);
 for i:=2 to n do//选排
  begin
   min:=10000;
   for j:=1 to i-1 do
    if a[j,i]<>0 then//如果他这条路可以走（飞）
     if f[j]+a[j,i]<=min then min:=f[j]+a[j,i];//打擂台
   f[i]:=min;//装的是去这个城市到起点最短的路程
  end;
 write(f[n]);
end.