最小生成树.txt

来自「最小生成树」· 文本 代码 · 共 47 行

A.Prim算法：
    procedure prim(v0:integer);
      var
        lowcost,closest:array[1..maxn] of integer;
 i,j,k,min:integer;
      begin
        for i:=1 to n do begin
   lowcost[i]:=cost[v0,i];
   closest[i]:=v0;
  end;
 for i:=1 to n-1 do begin
   {寻找离生成树最近的未加入顶点k}
   min:=maxlongint;
   for j:=1 to n do
     if (lowcost[j]<min) and (lowcost[j]<>0) then begin
       min:=lowcost[j];
       k:=j;
     end;
   lowcost[k]:=0; {将顶点k加入生成树}
      {生成树中增加一条新的边k到closest[k]}
   {修正各点的lowcost和closest值}
   for j:=1 to n do
     if  cost[k,j]<lwocost[j] then begin
       lowcost[j]:=cost[k,j];
       closest[j]:=k;
     end;
   end;
end;{prim}


1．求两数的最大公约数

function  gcd(a,b:integer):integer;
 begin 
   if b=0 then gcd:=a
     else gcd:=gcd (b,a mod b);
 end ;

2．求两数的最小公倍数

function  lcm(a,b:integer):integer;
 begin
   if a<b then swap(a,b);
   lcm:=a;
   while lcm mod b>0 do inc(lcm,a);
 end;