博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
最小生成树Kruskal——最优布线问题(codevs 1231) (可做Kruscal模板)
阅读量:7060 次
发布时间:2019-06-28

本文共 1618 字,大约阅读时间需要 5 分钟。

题目描述 Description

学校需要将n台计算机连接起来,不同的2台计算机之间的连接费用可能是不同的。为了节省费用,我们考虑采用间接数据传输结束,就是一台计算机可以间接地通过其他计算机实现和另外一台计算机连接。

为了使得任意两台计算机之间都是连通的(不管是直接还是间接的),需要在若干台计算机之间用网线直接连接,现在想使得总的连接费用最省,让你编程计算这个最小的费用。

输入描述 Input Description

输入第一行为两个整数n,m(2<=n<=100000,2<=m<=100000),表示计算机总数,和可以互相建立连接的连接个数。接下来m行,每行三个整数a,b,c 表示在机器a和机器b之间建立连接的话费是c。(题目保证一定存在可行的连通方案, 数据中可能存在权值不一样的重边,但是保证没有自环)

输出描述 
Output Description

输出只有一行一个整数,表示最省的总连接费用。

样例输入 Sample Input

3 3

1 2 1

1 3 2

2 3 1

样例输出 Sample Output

2

数据范围及提示 
Data Size & Hint

最终答案需要用long long类型来保存

代码:Kruscal就是排序+并查集思路

var aa,bb,t,n,m,i,j:longint;    sum:int64;    f,a,b,c:array[1..100000] of longint;function find(x:longint):longint;begin  if f[x]=x then exit(x)    else find:=find(f[x]);  f[x]:=find;end;procedure qsort(l,r: longint);  //快排      var         i,j,x,y: longint;      begin         i:=l;  j:=r;  x:=c[(l+r) div 2];         repeat           while c[i]
j) then begin y:=a[i]; a[i]:=a[j]; a[j]:=y; y:=b[i]; b[i]:=b[j]; b[j]:=y; y:=c[i]; c[i]:=c[j]; c[j]:=y; inc(i); j:=j-1; end; until i>j; if l
procedure kruscal;    //Kruscal就是并查集思想var i,j:longint;begin  for i:=1 to n do f[i]:=i;  for i:=1 to m do    begin      a[i]:=find(a[i]);      b[i]:=find(b[i]);      if a[i]<>b[i] then        begin           f[a[i]]:=b[i];           sum:=sum+c[i];           inc(t);           if t=n-1 then break;        end;    end;end;
begin  readln(n,m);  for i:=1 to m do  readln(a[i],b[i],c[i]);  qsort(1,m);  kruscal;  writeln(sum);end.

转载于:https://www.cnblogs.com/zqzxwdm/p/4743855.html

你可能感兴趣的文章
MongoDB学习笔记(3)--删除数据库
查看>>
JQuery Checkbox 获取多选值 Checkbox选中个数
查看>>
spring boot mvc系列-静态资源配置与MappingHandler拦截器
查看>>
Postgresql查询出换行符和回车符:
查看>>
基于.Net + SqlServer的分库分表设计方案
查看>>
settings.xml配置详解
查看>>
Fix problems that block programs from being installed or removed
查看>>
python字符串格式化输出
查看>>
Idea 如何设置微软雅黑等其它字体
查看>>
PIC单片机学习之SPI操作数码管
查看>>
Delphi2007升级到Delphi 2010总结
查看>>
路由器开发
查看>>
Export excel的终级解决方案
查看>>
C# 为webBrowser设置代理
查看>>
VSTS 2005 写SQL Server存储过程基础 (C#)
查看>>
ERWin 连接SQL Sever2005的问题
查看>>
Asp.net 通过Repeater循环添加对应的一组控件
查看>>
ubuntu下解压文件命令大全(转)
查看>>
类型自定义格式字符串
查看>>
Install Hive
查看>>