继续畅通工程
来源:互联网 发布:苹果手机拨号软件 编辑:程序博客网 时间:2024/05/16 17:17
继续畅通工程
Time Limit: 2000/1000 MS (Java/Others) Memory Limit: 32768/32768 K (Java/Others)Total Submission(s): 11371 Accepted Submission(s): 4981
Problem Description
省政府“畅通工程”的目标是使全省任何两个村庄间都可以实现公路交通(但不一定有直接的公路相连,只要能间接通过公路可达即可)。现得到城镇道路统计表,表中列出了任意两城镇间修建道路的费用,以及该道路是否已经修通的状态。现请你编写程序,计算出全省畅通需要的最低成本。
Input
测试输入包含若干测试用例。每个测试用例的第1行给出村庄数目N ( 1< N < 100 );随后的 N(N-1)/2 行对应村庄间道路的成本及修建状态,每行给4个正整数,分别是两个村庄的编号(从1编号到N),此两村庄间道路的成本,以及修建状态:1表示已建,0表示未建。
当N为0时输入结束。
当N为0时输入结束。
Output
每个测试用例的输出占一行,输出全省畅通需要的最低成本。
Sample Input
31 2 1 01 3 2 02 3 4 031 2 1 01 3 2 02 3 4 131 2 1 01 3 2 12 3 4 10
Sample Output
310
Author
ZJU
Source
浙大计算机研究生复试上机考试-2008年
#include<iostream>#include<cstdio>#include<cstring>#define M 9999999#define D 101using namespace std;int map[D][D];int visit[D];int dis[D];int prim(int n){ int i,j,k; for(i=1;i<=n;i++) { dis[i]=M; } dis[1]=0; for(j=1;j<=n;j++) { int t=M; int pos; for(i=1;i<=n;i++) { if(!visit[i]&&t>dis[i]) { t=dis[i]; pos=i; } } visit[pos]=1; for(i=1;i<=n;i++) { if(!visit[i]&&dis[i]>map[pos][i]&&map[pos][i]!=M) { dis[i]=map[pos][i]; } } } int sum=0; for(i=1;i<=n;i++) { sum=sum+dis[i]; } return sum;}int main(){ int i,j; int n,c,a,b,k; while(scanf("%d",&n)!=EOF) { if(n==0) break; for(i=0;i<D;i++) { for(j=0;j<D;j++) { map[i][j]=M; } } memset(visit,0,sizeof(visit)); for(i=1;i<=n*(n-1)/2;i++) { scanf("%d%d%d%d",&a,&b,&c,&k); //merge(a,b); if(k==1) { map[a][b]=0; map[b][a]=0; } else { map[a][b]=c; map[b][a]=c; } } int ans=prim(n); printf("%d\n",ans); } return 0;}
0 0
- 继续畅通工程
- hdu1879继续畅通工程
- HDU1879继续畅通工程
- HDOJ 继续畅通工程
- 继续畅通工程
- hdoj1879 继续畅通工程
- HDU1879--继续畅通工程
- 继续畅通工程
- Hdoj1879继续畅通工程
- E - 继续畅通工程
- 继续畅通工程
- 继续畅通工程
- 继续畅通工程
- 继续畅通工程
- OJ_1028 继续畅通工程
- hdu1879 继续畅通工程
- HDU1879继续畅通工程
- 继续畅通工程
- Red and Black
- Android指定特定的包接受广播
- Linux命令详解之su
- ASCII码排序
- SRM 596 D2 L2:ColorfulRoad,dp
- 继续畅通工程
- Linux命令详解之uname
- Linux命令详解之id
- 解决Eclipse建立Maven项目后无法建立src/main/java资源文件夹的办法
- NYOJ 26 孪生素数问题 打表法
- 黄章称年后复出 魅族或将引入新的投资人
- 编程范式--c语言
- 从工厂小工到世界500强,我经历了6年
- NYOJ 546 Divideing Jewels