关闭

相连的农场

标签: 编程Pascal
143人阅读 评论(0) 收藏 举报

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

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:188634次
    • 积分:3540
    • 等级:
    • 排名:第10545名
    • 原创:176篇
    • 转载:22篇
    • 译文:0篇
    • 评论:18条
    个人主页
    www.jrxblog.top 欢迎访问&交换友链!
    博客专栏