A.標(biāo)號(hào)法求解單源點(diǎn)最短路徑：
   var
     a:array[1..maxn,1..maxn] of integer;
     b:array[1..maxn] of integer; {b[i]指頂點(diǎn)i到源點(diǎn)的最短路徑}
     mark:array[1..maxn] of boolean;

   procedure bhf;
     var
       best,best_j:integer;
     begin
       fillchar(mark,sizeof(mark),false);
    mark[1]:=true; b[1]:=0;{1為源點(diǎn)}
    repeat
      best:=0;
        for i:=1 to n do
         If mark[i] then {對(duì)每一個(gè)已計(jì)算出最短路徑的點(diǎn)}
          for j:=1 to n do
            if (not mark[j]) and (a[i,j]>0) then 
           if (best=0) or (b[i]+a[i,j]<best) then begin
             best:=b[i]+a[i,j];  best_j:=j;
          end;
       if best>0 then begin
         b[best_j]:=best；mark[best_j]:=true;
       end;
     until best=0;
     end;{bhf}

  B.Floyed算法求解所有頂點(diǎn)對(duì)之間的最短路徑：
     procedure floyed;
       begin
for I:=1 to n do
 for j:=1 to n do
 if a[I,j]>0 then p[I,j]:=I else p[I,j]:=0; {p[I,j]表示I到j(luò)的最短路徑上j的前驅(qū)結(jié)點(diǎn)}
  for k:=1 to n do {枚舉中間結(jié)點(diǎn)}
    for i:=1 to n do
      for j:=1 to n do
        if a[i,k]+a[j,k]<a[i,j] then begin
       a[i,j]:=a[i,k]+a[k,j];
             p[I,j]:=p[k,j];
     end;
      end;