相连的农场

最新推荐文章于 2019-03-08 19:05:12 发布

chjrx0387

最新推荐文章于 2019-03-08 19:05:12 发布

阅读量470

点赞数 3

文章标签：编程 Pascal

本文链接：https://blog.csdn.net/qq_31640513/article/details/52350990

版权

【题目描述】
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.