局域网(最小生成树)

版权声明:2333 https://blog.csdn.net/liangzihao1/article/details/51152942

Description

  某个局域网内有n(n<=100)台计算机,由于搭建局域网时工作人员的疏忽,现在局域网内的连接形成了回路,我们知道如果局域网形成回路那么数据将不停的在回路内传输,造成网络卡的现象。因为连接计算机的网线本身不同,所以有一些连线不是很畅通,我们用f(i,j)表示i,j之间连接的畅通程度(f(i,j)<=1000),f(i,j)值越小表示i,j之间连接越通畅,f(i,j)为0表示i,j之间无网线连接。现在我们需要解决回路问题,我们将除去一些连线,使得网络中没有回路,并且被除去网线的Σf(i,j)最大,请求出这个最大值。

Input

第一行两个正整数n k
接下来的k行每行三个正整数i j m表示i,j两台计算机之间有网线联通,通畅程度为m

Output

一个正整数,Σf(i,j)的最大值

Sample Input

5 5
1 2 8
1 3 1
1 5 3
2 4 5
3 4 2

Sample Output

8   (拆除红色网线)

   这道题目很显然是最小生成树,求出最小值后,用总通畅程度减去最小值即可。

标程:

·              var
·               p,r:array [1..2001] of longint;
·               a:array [1..10001,1..3] of longint;
·               n,m,p1,u,v,w,ans,k,i:longint;
·              function find(x:longint):longint;
·               var y,root,w:longint;
·               begin
·               y:=x;
·                 while p[y]>0 do
·                  y:=p[y];
·                 root:=y;
·                 y:=x;
·                 while p[y]>0 do
·                  begin
·                   w:=p[y];
·                   p[y]:=root;
·                   y:=w;
·                  end;
·                 find:=root;
·               end;
·               
·              procedure union(x,y:longint);
·               var
·                u,v:longint;
·              begin
·               u:=find(x);
·               v:=find(y);
·               if u=v then exit;
·               if r[u]<=r[v] then
·                begin
·                 p[u]:=v;
·                 if r[u]=r[v] then inc(r[v]);
·                end
·               else p[v]:=u;
·              end;
·               
·              procedure qsort(l,r:longint);
·                var
·                  i,j,key,temp:longint;
·                begin
·                  if l>=r then exit;
·                  i:=l;j:=r;
·                  key:=a[l+random(r-l+1),3];
·                  repeat
·                    while  (a[i,3]<key) do inc(i);
·                    while  (a[j,3]>key) do dec(j);
·                    if i<=j then
·                    begin
·                      temp:=a[i,1];a[i,1]:=a[j,1];a[j,1]:=temp;
·                      temp:=a[i,2];a[i,2]:=a[j,2];a[j,2]:=temp;
·                      temp:=a[i,3];a[i,3]:=a[j,3];a[j,3]:=temp;
·                      inc(i);dec(j);
·                    end;
·                  until i>j;
·                  qsort(l,j);
·                  qsort(i,r);
·                end;
·               
·               
·              begin
·               readln(n,m);
·               for i:=1 to m do
·                begin
·                 readln(u,v,w);
·                  a[i,1]:=u;
·                  a[i,2]:=v;
·                  a[i,3]:=w;
·                  ans:=ans+w;
·                 end;
·               qsort(1,m);
·               for i:=1 to m do
·                begin
·                 if find(a[i,1])<>find(a[i,2]) then
·                  begin
·                   union(a[i,1],a[i,2]);
·                   ans:=ans-a[i,3];
·                  end;
·                end;
·               write(ans);
·              end.
·               

 

阅读更多
换一批

没有更多推荐了,返回首页