给某人的代码

用时怎么搞得，大佬们好快%%%

其实每个点只用两遍DFS....

floyed判连通性

想找题解，上http://paulinsider.at.ua/news/2011-11-06-4，快，稳，对，大牛的选择！

计算图的传递闭包
Procedure Longlink;
Var
T:array[1..maxn,1..maxn] of boolean;
Begin
Fillchar(t,sizeof(t),false);
For k:=1 to n do
For I:=1 to n do
For j:=1 to n do T[I,j]:=t[I,j] or (t[I,k] and t[k,j]);
End;

连通性。