用Dijkstra算法求图中从顶点a到其他各顶点间的最短路径，并写出执行算法过程中各步的状态。

Posted 2023-03-31

参考技术A 迪克斯加（Dijkstra）算法(最短路径算法)是由荷兰计算机科学家艾兹格·迪科斯彻发现的。算法解决的是有向图中任意两个顶点之间的最短路径问题。
　　举例来说，如果图中的顶点表示城市，而边上的权重表示著城市间开车行经的距离。 迪科斯彻算法可以用来找到两个城市之间的最短路径。
　　迪科斯彻算法的输入包含了一个有权重的有向图G，以及G中的一个来源顶点S。 我们以V表示G中所有顶点的集合。 每一个图中的边，都是两个顶点所形成的有序元素对。(u,v)表示从顶点u到v有路径相连。 我们以E所有边的集合，而边的权重则由权重函数w: E → [0, ∞]定义。 因此，w(u,v)就是从顶点u到顶点v的非负花费值(cost)。 边的花费可以想像成两个顶点之间的距离。任两点间路径的花费值，就是该路径上所有边的花费值总和。 已知有V中有顶点s及t，Dijkstra算法可以找到s到t的最低花费路径(i.e. 最短路径)。 这个算法也可以在一个图中，找到从一个顶点s到任何其他顶点的最短路径
　　这个算法是通过为每个顶点v保留目前为止所找到的从s到v的最短路径来工作的。初始时，源点s的路径长度值被赋为0（d[s]=0）， 同时把所有其他顶点的路径长度设为无穷大，即表示我们不知道任何通向这些顶点的路径（对于V中所有顶点v除s外d[v]= ∞）。当算法结束时，d[v]中储存的便是从s到v的最短路径，或者如果路径不存在的话是无穷大。 Dijstra算法的基础操作是边的拓展：如果存在一条从u到v的边，那么从s到v的最短路径可以通过将边(u,v)添加到尾部来拓展一条从s到u的路径。这条路径的长度是d+w(u,v)。如果这个值比目前已知的d[v]的值要小，我们可以用新值来替代当前d[v]中的值。拓展边的操作一直执行到所有的d[v]都代表从s到v最短路径的花费。这个算法经过组织因而当d达到它最终的值的时候每条边(u,v)都只被拓展一次。
　　算法维护两个顶点集S和Q。集合S保留了我们已知的所有d[v]的值已经是最短路径的值顶点，而集合Q则保留其他所有顶点。集合S初始状态为空，而后每一步都有一个顶点从Q移动到S。这个被选择的顶点是Q中拥有最小的d值的顶点。当一个顶点u从Q中转移到了S中，算法对每条外接边(u,v)进行拓展。program dijkstra;
　　var
　　state:array[1..100]of boolean;
　　data:array[1..100,1..100]of longint;
　　n,i,j,k,min,node:longint;
　　begin
　　assign(input,'dijkstra.in');
　　assign(output,'dijkstra.out');
　　reset(input);
　　rewrite(output);
　　fillchar(data, sizeof(data), 0);
　　fillchar(state,sizeof(state),0);
　　readln(n);
　　for i:=1 to n do
　　for j:=1 to n do
　　begin
　　read(data[i,j]);
　　if data[i,j]=0 then data[i,j]:=maxint;
　　end;
　　state[1]:=true;
　　for k:=2 to n do
　　begin
　　min:=maxint;
　　查找权值最小的点为node
　　node:=1;
　　for i:=2 to n do
　　if (data[1,i]<min)and(state[i]=false) then
　　begin
　　min:=data[1,i];
　　node:=i;
　　end;
　　更新其他各点的权值
　　state[node]:=true;
　　for j:=1 to n do
　　if (data[1,node]+data[node,j]<data[1,j]) and (state[j]=false) then
　　data[1,j]:=data[1,node]+data[node,j];
　　end;
　　for i:=1 to n-1 do
　　if data[1,i]<>maxint then
　　write(data[1,i],' ')
　　else
　　write(-1,' ');
　　writeln(data[1,n]);
　　close(input);
　　close(output);
　　end.