求连通分量-方法1（图论算法）

chrisblogtk

于 2016-04-08 21:45:50 发布

阅读量2.5k

点赞数

CC 4.0 BY-SA版权

分类专栏：图论算法

本文链接：https://blog.youkuaiyun.com/chrisblogtk/article/details/51099943

22 篇文章

订阅专栏

本文介绍了一种方法来寻找图的连通分量。输入包含图的顶点数（不超过100）和边的信息，输出则是图的连通组件。示例输入和输出展示了算法的应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Description

求一个图的连通分量

Input

n 顶点数(<=100)
边

Output

连通分量

Sample Input

1 2

3 4

2 3

0 0

Sample Output

解题思路：用深度优先搜索建立图的邻接矩阵。

程序：

const

  maxn=100;

var

  g:array[0..maxn,0..maxn]of longint;

  a,b:array[0..maxn]of longint;

  v:array[0..maxn]of boolean;

  n,i,j,t,p,x,y:longint;

procedure dfs(dep,k:longint);

var

    i:longint;

  begin

    v[dep]:=false;

    a[dep]:=k;

    for i:=1 to n do

      if (g[dep,i]=1) and (v[i]) then

        begin

          v[i]:=false;

          dfs(i,k);

        end;

end;

begin

  readln(n);

  repeat

    readln(x,y);

    g[x,y]:=1;

    g[y,x]:=1;

  until (x=0) and (y=0);

  fillchar(v,sizeof(v),true);

  for i:=1 to n do

    if v[i] then

    begin

      inc(p);

      dfs(i,p);

    end;

  for i:=1 to n do

    inc(b[a[i]]);

  for i:=1 to n-1 do

    for j:=i+1 to n do

      if b[i]

  writeln(b[1]);

end.



版权属于: Chris

原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v0up.html

转载时必须以链接形式注明原始出处及本声明。