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

[grenles]

Ты сделал? Молодец, для будущих поколений можешь привести код, чтобы не было глупых вопросов - и где же ответ?

Правда у тебя как-то сложно все выходит и в три прохода, не оптимально. Но приведи код хотя бы реализующий это.

[Madmaxisss]

grenles

Ты сделал?

какой сделал!!! Если мы даже первый шаг выполнить не можем

[grenles]

Будет время, я посижу над твоей задачей. только вируальную машину поставлю, чтобы нормально Борланд паскаль работал. НА семерке он ругается шибко матом, не хорошо.

[Madmaxisss]

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

[eoln]

На рисунке самая левая двойка вроде лишняя? У неё ведь нет листьев.
Могу предложить за 2 прохода сделать. Первый проход подсчитает максимальную глубину дерева (то самое максимальное kk-1 которое можем найти)
Для второго прохода используем другую процедуру, примерно так

PRO_URO222 (mytrre,max_kk-1);
PROCEDURE  PRO_URO222 (tt :tree; kk :integer); 
begin
   if (tt^.pll<>nil) then 
      begin 
         PRO_URO222(tt^.pll,kk-1); 
      end;

   if (tt^.prr<>nil) then 
      begin 
         PRO_URO222(tt^.prr,kk-1); 
      end;

if (tt^.pll<>nil) or (tt^.prr<>nil) then tt^.value=kk;
end;

Возможно, есть более быстрый способ, но этот зато простой

[Madmaxisss]

На рисунке самая левая двойка вроде лишняя?

да eoln ты прав )) я просто не заметил

[Madmaxisss]

eoln, Для второго прохода используем другую процедуру, примерно так

я аж прослезился, как тебе это удалось? так просто. Ну все осталось процедуру для третьего шага...

[Madmaxisss]

все составил))) большое всем спасибо за труды.
особая похвала eoln и grenles спасибо вам.
хотя до конца код еще не объездил)) (могут быть ошибки)

PROCEDURE  PRO_URO (tt :tree; 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 
      begin
         if k_max>kk then k_max:=kk;
         tt^.element:=kk;
      end;
END;

PROCEDURE  PRO_NOM (tt :tree; kk :integer); 
BEGIN
   if (tt^.pll<>nil) then PRO_NOM(tt^.pll,kk-1); 
   if (tt^.prr<>nil) then PRO_NOM(tt^.prr,kk-1); 
    
   if (tt^.pll<>nil) or (tt^.prr<>nil) then 
      begin
         tt^.element:=kk+k_max;
      end;
END;

begin

...
     kk:=0; k_max:=0;
     
     PRO_URO(k_tree^.prr, kk);  
     
     kk:=0; k_max:=(-k_max)+1;
      
     PRO_NOM (k_tree^.prr, kk); 
...

end;

[grenles]

я позднее предложу свой код. Частично я е го написал в виртуальной машине, но по глупости потерял изменения вирутального диска и потерял код. Восстановил по памяти. а он стал работать уже не так. и не могу отловить логическую ошибку.