# очередную компоненту

очередную компоненту двусвязности, начинающуюся с вершины v. Итак, логика. procedure Dvy(v,p:integer);{вершина p - предок вершины v} {массивы A, Num, Lowpg и переменная nm - глобальные} var u:integer; begin Inc(nm);Num[v]:=nm;Lowpg[v]:=Num[v]; for u:=1 to N do if A[v,u]&lt;&gt;0 then if Num[u]=0 then begin &lt;сохранить ребро (v,u) в стеке&gt;; Dvy(u,v); Lowpg[v]:=Min(Lowpg[v],Lowpg[u]); {функция, определяющая минимальное из двух чисел } if Lowpg[u]&gt;=Num[v] then &lt;вывод компоненты&gt;; end else if (u&lt;&gt;p) and (Num[v]&gt;Num[u]) then begin {u не совпадает с предком вершины v} &lt;сохранить ребро (v,u) в стеке&gt;; Lowpg[v]:=Min(Lowpg[v],Num[u]); end; end; Фрагмент основной логики: .... FillChar(Num,SizeOf(Num),0); FillChar(Lowpg,SizeOf(Lowpg),0); nm:=0; for v:=1 to N do if Num[v]=0 then Dvy(v,0); .... Дополнение. Мостом графа G называется каждое

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