【题目描述】 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.转载于:https://www.cnblogs.com/JRX2015U43/p/6533540.html
相关资源：农场灌溉问题给出若干由字母表示的最大不超过50×50具体由(m，n)表示，的农场图，编程求出最小需要打的井数。每个测例的输出占一行。当M=N=-1时结束程序。