Поиск циклов в неориентированном графе Опции

[legend-muay]

Всем доброе время суток. Нужна помощь алгоритмом или кодом поиска циклов в неориентированном графе. Граф задан матрицей смежности, и списком ребер. В общем есть программа для определения числа связности графа и компонент связности, а вот как этот алгоритм применить к поиску циклов не знаю((

[legend-muay]

Вот код для определения числа связности. В задании написанно, что этот же алгоритм применяется и для определения циклов. В общем у меня не получилось переделать его под циклы((

{ Определение числа связности }
//a-матрица смежности
//mark-массив с метками для вершин, если вершина пройдена тогда 1, иначе 0
//count_rec-кол-во вершин в связном компоненте
//count_c-число связности
procedure step(c1,v:byte);
var jin:byte;
begin
 mark[v]:=1;
 for jin:=1 to n do
  if (mark[jin]=0) and (a[v,jin]<>0) then
   begin
    inc(count_rec);
    lbl[c1,count_rec]:=jin;
    step(c1,jin);
   end;
end;

procedure svyaznost(nin:byte;var countC:byte);
var iin:byte;
begin
 for iin:=1 to nin do mark[iin]:=0;
 countC:=0;
 for iin:=1 to nin do
  if mark[iin]=0 then
   begin
    count_rec:=0;
    inc(countC);
    inc(count_rec);
    lbl[countC,count_rec]:=iin;
    step(countC,iin);
    lbl[countC,0]:=count_rec;
   end;
end;
{ End 
      lbl-связные компоненты}

Сообщение отредактировано: legend-muay - 20.10.2009 21:43