На главную страницу

procedure MarkSubgraphViaRecursion(Graph: TMathGraph; Top: Integer; TopCountMinus1: Integer; var strMark: string);

procedure MarkSubgraphViaRecursion(Graph: TMathGraph; Top: Integer;
 TopCountMinus1: Integer; var strMark: string);
var
 i: Integer;
begin
 strMark[Top]:='m';
 for i:=0 to TopCountMinus1 do
 begin
  if (i<>Top) and (strMark[i]<>'m') and (Graph.Connected[i,Top])
  then MarkSubgraphViaRecursion(Graph,i,TopCountMinus1,strMark);
 end;
end;

На главную страницу