подсчет уровней в дереве

[eoln]

                                 1
                       2                  2
                  3        3          3      3
                4   4               4  4

Я так понял что >>4>>4>>3>>4>>4>>3 это расстояние от вершины до тупика (выделен крассным)
То есть исходил из идеи: входя в новую итерацию увеличиваем локальный счётчик (либо один раз применяем inc, либо сам параметр процедуры увеличиваем), который передался из прошлой итерации.

Madmaxisss, запили в программу предложенные варианты и проверь, либо исходники в атаче приложи чтоб дебагером можно было пройтись

[Madmaxisss]

да eoln это расстояние (оно будет постепенно заносится в дерево при каждом inc-е к каждому узлу), но мне потом это расстояние нужно переконвертить как на рисунке сверху вниз. а листья не трогать.

Я вот думаю мож сразу можно как нибудь составить так чтоб не пришлось переставлять

[Madmaxisss]

запили в программу предложенные варианты

твой вариант eoln
как всегда работает)) но как быть в моем задание что на рисунке?

[grenles]

То есть при достижении листа, надо откатываться назад и заносить значение к в значение узла. Тогда как-то так.

PROCEDURE  PRO_URO (tt :tree; var kk :integer); 
begin
   if (tt^.pll<>nil) then  PRO_URO(tt^.pll,kk+1); 

   if (tt^.prr<>nil) then PRO_URO(tt^.prr,kk+1); 

   if (tt^.pll<> nil)or(tt^.prr<>nil) then tt^.element := kk; // То есть не лист, а кто-то есть в потомках - заносим номер. Осталось подумать, будет ли 1-2-3 или 2-3-4

end;

А вот чтобы в вершине был максимум - обозначающий число уровней - это надо еще подумать. потому что максимум будет внизу, у листа. На 1-2-3, как хотите вы, а 3-2-1. Тогда счетчик надо иначе передавать:

PROCEDURE  PRO_URO (tt :tree; var kk :integer); 
begin
   if (tt^.pll<>nil) then  PRO_URO(tt^.pll,kk; 

   if (tt^.prr<>nil) then PRO_URO(tt^.prr,kk); 

   if (tt^.pll<> nil)or(tt^.prr<>nil) then 
 begin
   tt^.element := kk; 
   kk := kk +1;
end;

end;

[Madmaxisss]

grenles с узлами не правильно но зато с листьями правильно))

[grenles]

grenles с узлами не правильно но зато с листьями правильно))

Я понял. Додумай.

[grenles]

PROCEDURE  PRO_URO (tt :tree; var kk :integer); 
begin
   if (tt^.pll<>nil) then  PRO_URO(tt^.pll,kk); 

   if kk > 1 then    kk := kk - 1; 

   if (tt^.prr<>nil) then PRO_URO(tt^.prr,kk); 

   if (tt^.pll<> nil)or(tt^.prr<>nil) then 
 begin
   tt^.element := kk; 
   kk := kk +1;
end;

end;

А так? При откате - уменьшаем уровень.

[Madmaxisss]

grenles в каждом узле получается минус и число (не правильно eoln правильно говорил про алгоритм), но со своими минусами ты мне идею подал)))

[grenles]

Главное думать. У меня нет возможности проверить на компиляторе. А так, надо логически идею додумывать. Когда откатился в другую ветку - какое будет значение Кк и что с ним надо делать.

[Madmaxisss]

от узла tt до листка N увеличиваем kk, как дошли до листка вывели kk, после чего kk:=1, и опять повторяем итерацию.

от узла tt до листка увеличиваем kk и заносим в дерево, как дошли до листка(лист не учитывается), то tt приравниваем к узлу(корню), а kk:=1, и опять повторяем итерацию. (eolnправильно понял суть)


grenles а вот идея твоих минусов