Обход дерева в ширину

[K0CTbIJIb]

Обход дерева в ширину

(Delphi) Напишите пожалуйста алгоритм обхода дерева в ширину.
Очень нужен для задачи.
Мне на словах пытались объяснить - вроде понял, но как реализовать все в коде - хоть убейте не пойму... :tehnari_ru_281:
З.Ы. Заранее благодарен!

 

[K0CTbIJIb]

Напишите пожалуйста алгоритм обхода дерева в ширину.

Извиняюсь не алгоритм просто, а саму процедуру если можна...

 

[K0CTbIJIb]

Так обход уже есть, может кто знает как можно нумеровать или определять уровни дерева(корень - первый уровень)? Помогитеееее плииз :tehnari_ru_203: