Обход бинарного дерева

[cyt]

Всем привет!
Необходимо обойти бинарное дерево по правилу: корень-левое-правое.
Подскажите, пожалуйста, как это сделать.
Спасибо.

[andrewpalkin]

При помощи рекурсии .

[cyt]

Спасибо за наводку

Может, кому пригодится (вывод происходит в строку во внешний текстовый файл):

...
procedure ReadTree (root : tree; var f : text); {tree - тип указателя на корень}
begin
if root <> nil then
begin
write(f,root^.element);
ReadTree (root^.left,f);
ReadTree (root^.right,f);
end;
end;
...