最短路径问题Floyed-Warshall（图…

最短路径算法实现

最新推荐文章于 2025-06-10 11:36:51 发布

原创最新推荐文章于 2025-06-10 11:36:51 发布 · 647 阅读

0 ·

CC 4.0 BY-SA版权

图论算法专栏收录该内容

22 篇文章

订阅专栏

本文介绍了一个关于寻找平面上两点间最短路径的问题，并通过Floyed-Warshall算法进行解决。具体步骤包括读取点坐标和连线信息，计算两点间直线距离，最终输出源点到目标点的最短路径长度。

Description

平面上有n个点(N<=100)，每个点的坐标均在-10000~10000之间。其中的一些点之间有连线。若有连线，则表示可从一个点到达另一个点，即两点间有通路，通路的距离为两点直线的距离。现在的任务是找出从一点到另一点之间的最短路径。

Input

输入文件short.in，共有n+m+3行，其中：
第一行为一个整数n。
第2行到第n+1行（共n行），每行的两个整数x和y，描述一个点的坐标(以一个空格隔开)。
第n+2行为一个整数m，表示图中的连线个数。
此后的m行，每行描述一条连线，由两个整数I,j组成，表示第i个点和第j个点之间有连线。
最后一行：两个整数s和t，分别表示源点和目标点。

Output

输出文件short.out仅一行，一个实数(保留两位小数)，表示从S到T的最短路径的长度。

Sample Input

0 0

2 0

2 2

0 2

3 1

1 2

1 3

1 4

2 5

3 5

1 5

Sample Output

3.41

解题思路：先读入数据，然后初始化，用二维数组储存，最后用Floyed-Warshall算法求出最短路径即可。

程序：

var

  a:array[1..100,1..2]of longint;

  f:array[1..100,1..100]of real;

  n,i,j,k,x,y,m,s,e:longint;

begin

  readln(n);

  for i:=1 to n do

    readln(a[i,1],a[i,2]);

  readln(m);

  fillchar(f,sizeof(f),$7f);

  for i:=1 to m do

    begin

      readln(x,y);

      f[x,y]:=sqrt(sqr(a[x,1]-a[y,1])+sqr(a[x,2]-a[y,2]));

      f[y,x]:=f[x,y];

    end;

  readln(s,e);

  for i:=1 to n do

    for j:=1 to n do

      for k:=1 to n do

        if (i<>j) and (j<>k) and (i<>k) and (f[j,i]+f[i,k]

  writeln(f[s,e]:0:2);

end.



版权属于: Chris

原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v0vj.html

转载时必须以链接形式注明原始出处及本声明。