计算图的传递闭包 Procedure Longlink;VarT:array[1..maxn,1..maxn] of boolean;

计算图的传递闭包

Procedure Longlink;

Var

T:array[1..maxn,1..maxn] of boolean;