1040 【图论基础】求连通子图个数 1041 【图论基础】求最小生成树(prim)

1040 【图论基础】求连通子图个数 1041 【图论基础】求最小生成树(prim)

ID:20456952

大小:33.00 KB

页数:4页

时间:2018-10-13

1040 【图论基础】求连通子图个数 1041 【图论基础】求最小生成树(prim)_第1页
1040 【图论基础】求连通子图个数 1041 【图论基础】求最小生成树(prim)_第2页
1040 【图论基础】求连通子图个数 1041 【图论基础】求最小生成树(prim)_第3页
1040 【图论基础】求连通子图个数 1041 【图论基础】求最小生成树(prim)_第4页
资源描述:

《1040 【图论基础】求连通子图个数 1041 【图论基础】求最小生成树(prim)》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、【图论基础】求连通子图的个数TimeLimit:10000MS MemoryLimit:65536KTotalSubmit:42Accepted:30Description  求一个无向图中连通子图的个数。Input  第一行一个数n,表示无向图的顶点的数量(n<=5000),接下来从第2行到第n+1行,每行有n个数(1表示相应点有直接通路,0表示无直接通路),形成一个n*n的矩阵,用以表示这个无向图。示例:Output  输出一个数,表示这个图含有连通子图的个数。SampleInput51010001110111100111000001Sam

2、pleOutput自己算吧!Source·var·i,j,n,ans,x:longint;·a:array[1..5000,0..5000]oflongint;·b:array[1..5000]ofboolean;·proceduredfs(x:longint);·vari:longint;·begin·b[x]:=false;·fori:=1toa[x,0]doifb[a[x,i]]then·dfs(a[x,i]);·end;··begin·readln(n);·fori:=1tondo·forj:=1tondobegin·read(x);·

3、ifx=1thenbegin·inc(a[i,0]);a[i,a[i,0]]:=j;·end;·end;·fillchar(b,sizeof(b),true);·fori:=1tondoifb[i]thenbegin·inc(ans);·dfs(i);·end;·writeln(ans);·end.【图论基础】求最小生成树(prim)TimeLimit:10000MS MemoryLimit:65536KTotalSubmit:119Accepted:58Description  求一个图的最小生成树。这个图边较多,但点较少,宜用prim算法。

4、Input  第一行一个数n,表示无向图的顶点的数量(n<=1000),接下来从第2行到第n+1行,每行有n个数(0表示相应点之间无边直接相连,不为0表示相应点之间有边直接相连,其值即为相连边的权值),形成一个n*n的矩阵,用以表示这个无向图。Output  一行,仅一个数,表示最小生成树的边权值和。SampleInput80946000090020000400190006210026000900300000230070006000200000720SampleOutput自己算。Source·var·i,j,k,n,min:longint;·

5、a:array[1..1000,1..1000]oflongint;·b:array[1..1000]oflongint;·c:array[1..1000]ofboolean;·begin·readln(n);·fori:=1tondo·forj:=1tondoread(a[i,j]);·fillchar(c,sizeof(c),0);·fillchar(b,sizeof(b),$7);·k:=1;·fori:=1ton-1dobegin·c[k]:=true;·forj:=1tondo·if(a[k,j]<>0)andnotc[j]and(a

6、[k,j]

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。