# хранения порядка

хранения порядка просмотра вершин графа, Nnew - массив признаков: вершина просмотрена или нет*} var j,v:integer; begin v:=St[k-1]; {*номер последней вершины*} for j:=1 to N do if (A[v,j]&lt;&gt;0) then {*есть ребро между вершинами с номерами v и j*} if (k=N+1) and (j=1) then &lt;вывод цикла&gt; else if Nnew[j] then {*вершина не просмотрена*} begin St[k]:=j;Nnew[j]:=false; Gm(k+1);Nnew[j]:=true;end; end; Фрагмент основной логики. ...... St[1]:=1;Nnew[1]:=false; Gm(2]); ...... 3.5.3. Фундаментальное множество циклов Каркас (V,T) связного неориентированного графа G=&lt;V,E&gt; содержит N-1 ребро, где N - количество вершин G. Каждое ребро, не принадлежащее T, то есть любое ребро из E-T, порождает в точности один цикл при добавлении его к T. Такой цикл является элементом фундаментального множества циклов графа G относительно каркаса T. Поскольку каркас состоит из N-1 ребра, в фундаментальном множестве циклов графа

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа