| Цитата |
....элемент из самого левого листа непустого дерева Т (лист—вершина, из которой не выходит ни одной ветви);
|
Вот и вопрос - как найти этот самый левый лист ?
Уже есть некоторое решение:
| Код |
procedure PrintByLevel(level: integer;
var items: array of TTree; count: integer);
var i, new_count: integer;
begin
if count <> 0 then begin
writeln('level = ', level);
new_count := 0;
for i := 0 to pred(count) do begin
write(items[i]^.value:4);
if items[i]^.left <> nil then begin
inc(new_count); items[count + new_count - 1] := items[i]^.left;
end;
if items[i]^.right <> nil then begin
inc(new_count); items[count + new_count - 1] := items[i]^.right;
end;
end;
writeln;
move(items[count], items[0], new_count*sizeof(TTree));
PrintByLevel(level + 1, items, new_count);
end;
end;
|
И вызивается она так:
| Код |
var
arr: array[0 .. pred(size)] of TTree; { <--- Здесь должно быть достаточно места для хранения }
begin
{ Заполнение дерева }
...
arr[0] := root;
PrintByLevel(0, arr, 1);
...
end.
|
Но что это за pred() и sizeof() ? 
Взято с http://volvo71.narod.ru/faq_folder/bin_tree.htm
|
