Welcome to JRX2015U43's blog!

自己选择的路,跪着也要走完!

相连的农场

【题目描述】
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.
阅读更多
版权声明:本文原创,可以转载,但需附上原文链接,否则你的生命将会-1s!!!! https://blog.csdn.net/qq_31640513/article/details/52350990
文章标签: 编程 Pascal
上一篇钻石布展
下一篇A*B Problem
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭