最短路径与标号法.docVIP

最短路径与标号法 前面我们学习过动态规划的应用，图中没明显阶段求最短路径的问题属于无明显阶段的动态规划，通常用标号法求解，求最短路径问题是信息学奥赛中很重要的一类问题，许多问题都可转化为求图的最短路径来来解，图的最短路径在图论中有经典的算法，本章介绍求图的最短路径的dijkstra算法、Floyed算法，以及标号法。 一、最短路径的算法 1、单源点最短路径（dijkstra算法） 给定一个带权有向图G=（V，E），其中每条边的权是一个非负实数，另外，还给定V中的一个顶点，称为源点。求从源点到所有其他各顶点的最短路径长度。这个问题称为单源最短路径问题。求单源最短路径可用dijkstra算法求解。 （dijkstra算法）算法思想： 设源点为x0，dist[i]表示顶点i到源点x0的最短路径长度，map[i,j]表示图中顶点i到顶点j的长度，用数组mark对所有的顶点作标记，已求出源点到达该点J的最短路径的点J记为mark[j]=true,否则标记为false。初始时，对源点作标记，然后从未作标记的点中找出到源点路径长度最短的顶点minj，对该顶点作标记，并对其它未作标记的点K作判断：if dist[minj]+map[minj,k]dist[k] then dist[k]= dist[minj]+map[minj,k]。重复处理，直到所有的顶点都已作标记，这时求出了源点到所有顶点的最短路径。 算法过程： const maxn=100; var map: array[1..maxn,1..maxn] of integer; dist: array[1..maxn] of integer; mark: array[1..maxn] of Boolean; n,k: integer; procedure dijkstra; var I,j,min,minj,temp:integer; begin fillchar(mark,sizeof(mark),0); for I:=1 to n do dist[i]:=maxint; dist[k]:=0; for I:=1 to n-1 do begin min:=maxint; for j:=1 to n do if (not mark[j]) and (dist[j]min) then begin min:=dist[j]; minj:=j; end; mark[minj]:=true; for j:=1 to n do if (not mar[j]) and (map[minj,j]0) then begin temp:=dist[minj]+map[minj,j]; if tempdist[j] then dist[j]:=temp; end; end; end; 以上只是求出了从源点到其它所有点的最短路径长度，所经过的具体路径没有保存，如果要求出具体的路径来，那么在求最短路径的过程中要将经过的中间点记录下来。下面通过例题来说明最短路径的求解。 例1：最短路径问题 下面给出某市各镇间路线网络图，市汽车站在市区A，现要求出市汽车站到各镇区的最短路径长度。 数据输入： 从文件city.dat中读入数据，第一行为镇区个数N，以下有N行，每行N个数据，在数据阵中，第i行第j列的数表示城镇i到城镇j的距离。 最后一行为市区中心所在位置的编号。 数据输出 结果输出到文件city.out中，共有N-1行，每行由市区到达的镇区号、最短路径长度。 输入输出样例 city.dat 6 0 12 11 30 0 0 12 0 9 14 8 15 11 9 0 13 0 0 30 14 13 0 10 15 0 8 0 10 0 10 0 15 0 15 10 0 1 city.out 2 12 3 11 4 24 5 20 6 39 分析： 本题是典型的求单源最短路径问题，本直接用dijkstra算法求解。 程序如下： program city; const maxn=100; var map: array[1..maxn,1..maxn] of integer; dist: array[1..maxn] of integer; mark: array[1..maxn] of Boolean; n,