題意

求一個圖的連通分量

分析

這題我用深搜

以一個點為起點，搜下去，看它連接哪一個點。每一次tj+1

最后找出最大的連通分量

var
n,i,tao,tj,x,y:longint;
a:array[0..100,0..100]of longint;
f:array[0..100]of longint;


procedure dfs(w:longint);
var
j:longint;
begin
? ? for j:=1 to n do
? ? if (a[j,w]=1)and(f[j]=0) then
? ? begin
? ? ? ? f[j]:=1;
? ? ? ? inc(tj);
? ? ? ? dfs(j);
? ? end;
end;


begin
? ? readln(n);
? ? fillchar(a,sizeof(a),0);
? ? fillchar(f,sizeof(f),0);
? ? repeat
? ? ? ? ?readln(x,y);
? ? ? ? ?a[x,y]:=1;
? ? ? ? ?a[y,x]:=1;
? ? until (x=0)and(y=0);
? ? tao:=0;
? ? for i:=1 to n do
? ? begin
? ? ? ? tj:=0;
? ? ? ? dfs(i);
? ? ? ? if tj>tao then tao:=tj;
? ? end;
? ? write(tao);


end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500156.html

總結

以上是生活随笔為你收集整理的求连通分量(深搜)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。