wiki1003电话连线

最新推荐文章于 2025-04-30 21:43:36 发布

hugedata

最新推荐文章于 2025-04-30 21:43:36 发布

阅读量801

点赞数

CC 4.0 BY-SA版权

分类专栏： wikioi

本文链接：https://blog.youkuaiyun.com/extremebug/article/details/14143427

wikioi 专栏收录该内容

10 篇文章

订阅专栏

本文详细介绍了Prim算法的具体实现过程，通过示例代码展示了如何构建最小生成树，并解释了关键步骤如节点选择、边权重更新等。适合初学者学习。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var
  n,i,j,ans,cost:longint;
  w:array[1..100,1..100] of longint;
  d:array[1..100] of longint;
  pre:array[1..100] of longint;
  a,b:array[1..100] of longint;
  used:array[1..100] of boolean;

procedure prim(x:longint);
var
  i,k,pos,min:longint;
begin
  ans:=0;
  cost:=0;
  fillchar(d,sizeof(d),0);
  fillchar(used,sizeof(used),false);
  used[x]:=true;
  for i:=1 to n do
    d[i]:=w[x,i];
  for i:=1 to n do
    pre[i]:=x;
  for k:=1 to n-1 do
    begin
     min:=maxlongint;
      fori:=1 to n do
       if (not used[i]) and (d[i]<min)then
         begin
          min:=d[i];
          pos:=i;
         end;
     used[pos]:=true;
      ifw[pre[pos],pos]<>0 then
       begin
         inc(ans);
        inc(cost,w[pre[pos],pos]);
         ifpre[pos]<pos then
          begin
            a[ans]:=pre[pos];
            b[ans]:=pos;
           end
         else
          begin
            a[ans]:=pos;
            b[ans]:=pre[pos];
           end;
       end;
      fori:=1 to n do
       if (not used[i]) and(d[i]>w[pos,i]) then
         begin
          d[i]:=w[pos,i];
          pre[i]:=pos;
         end;
    end;
  writeln(ans);
  for i:=1 to ans do
    writeln(a[i],'',b[i]);
  writeln(cost);
end;

begin
  read(n);
  for i:=1 to n do
    for j:=1 to n do
     read(w[i,j]);
  prim(1);
end.{只要好好理解prim就行了，加油！}