/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Algorithms/GraphTraverse.pas
15 строк
417 B
Mikhalkovich Stanislav
GraphTraverse.pas
15 июн 2025, 14:39
15 июн 2025, 14:39
54b311e
Код
Авторство
О чём код?
// Обход ориентированного графа в глубину procedure TraverseDepth(gr: array of array of integer; p: array of boolean; x: integer); begin Print(x); p[x] := True; foreach var y in gr[x] do if not p[y] then TraverseDepth(gr,p,y); end; begin var gr := [[1, 2], [3], [1, 4], [5], [6], [4, 7], [], []]; var p := [False] * gr.Count; TraverseDepth(gr,p,0); end.