最短路径 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;