【题目描述】
Farmer John的农场被一次意外事故破坏了,有一些农场与其他的农场之间有道路相连,而有些道路却已被破坏。这使得Farmer John 无法了解到从一个农场能否到达另一个农场。你的任务就是帮助Farmer John来了解哪些农场是连通的。
【输入格式】
第一行是点数n(1<=n<=500),以下n行为这个图的邻接矩阵。
【输出格式】
第一行是连通块的个数m,以下m行,每一行是一个连通块中农场的序号。
【样例输入】
5
0 1 0 1 0
1 0 0 0 0
0 0 0 0 1
1 0 0 0 0
0 0 1 0 0
【样例输出】
2
1 2 4
3 5
【分析】
就是求图的联通块。
map:array[0..501,0..501]of longint;
f:array[0..501]of longint;
i,j,k,n,m:longint;
flag:boolean;
procedure dfs(i,m:longint);
var
k:longint;
begin
f[i]:=m;
for k:=1 to n do
if (map[i,k]=1)and(f[k]=0) then dfs(k,m);
end;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
read(map[i,j]);
m:=0;
for i:=1 to n do
if f[i]=0 then begin
inc(m);
dfs(i,m);
end;
writeln(m);
for i:=1 to m do begin
for j:=1 to n do
if f[j]=i then write(j,' ');
writeln;
end;
end.