无向图的连通分量

无向图的连通分量
A.深度优先
procedure dfs ( now,color: integer);
  begin
    for i:=1 to n do
    if a[now,i] and c=0 then begin {对结点I染色}
      c:=color;
      dfs(I,color);
    end;
end;