Boolean型数组 for k:=1 to n do for i:=1 to n do for j:=1 to ndo f[i,j]:=f[i,j] or (f[i,k] and f[k,j]);{相当好的办法}