NOIP复习-006——最小生成树

NUM.ONE——PRIM

var a:array[1..1000,1..1000]of longint;
    i,j,k,l,m,n,p,min,minp,minp2,num:longint;
    v:array[1..1000]of boolean;
    d:array[1..1000]of longint;
begin
  readln(n);
  for i:=1 to n do
    for j:=1 to n do
      begin
        read(a[i,j]);
        if a[i,j]=0 then
          a[i,j]:=maxlongint;
      end;
  fillchar(v,sizeof(v),true);
  d[1]:=1;
  v[1]:=false;
  num:=1;
  for p:=1 to n-1 do
    begin
      min:=maxlongint;
      for j:=1 to num do
        for i:=1 to n do
          if (a[d[j],i]<min)and(v[i]) then
            begin
              min:=a[d[j],i];
              minp:=i;
              minp2:=j;
            end;
      d[p+1]:=minp;
      //writeln(minp,' ',minp2);
      v[minp]:=false;
      num:=num+1;
    end;
  for i:=1 to n do
    write(d[i],' ');
end.
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值