Procedure Поиск в глубину
For v:=1 to n do
	M[v]:=‘-’ M – массив меток вершин
For v:=1 to n do
	if M[v]=‘-’ then
		search(v) процедура поиска в глубину от вершины 𝑣
End Поиск в глубину
Procedure search(v)
M[v]:=‘+’
For u : Mat[v][u]=1 do
	if M[u]=‘-’ then
search(u)
End search