最短路径 A.标号法求解单源点最短路径：vara:array[1..maxn,1..maxn] of integer;b:array[1..

最短路径

A.标号法求解单源点最短路径：

var

a:array[1..maxn,1..maxn] of integer;

b:array[1..maxn] of integer; {b[i]指顶点i到源点的最短路径}

mark:array[1..maxn] of boolean;

procedure bhf;

var

best,best_j:integer;