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

Description

求一个图的连通分量

Input

n 顶点数(<=100) 
边

Output

连通分量

Sample Input

 

 

Sample Output

 

用广度优先搜索建立图的邻接矩阵。

程序：

var

  e:array[0..100,0..100] of longint;

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

  num,state:array[0..100] of longint;

  ans,n,max,x,y,i:longint;

procedure bfs(x:longint);

  var

    head,tail,i:longint;

  begin

    head:=0;

    tail:=1;

    state[1]:=x;

    v[x]:=false;

    ans:=1;

    repeat

      inc(head);

      for i:=1 to n do

        if (v[i])and(e[i,state[head]]=1) then

          begin

            inc(ans);

            inc(tail);

            state[tail]:=i;

            v[i]:=false;

          end;

    until head>=tail;

end;

begin

  readln(n);

  readln(x,y);

  while (x>0) and (y>0) do

    begin

      e[x,y]:=1;

      e[y,x]:=1;

      readln(x,y);

    end;

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

  max:=0;

  for i:=1 to n do

    if v[i] then

      begin

        ans:=0;

        bfs(i);

        if ans>max then max:=ans;

      end;

  writeln(max);

end.

版权属于: Chris

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

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