изменение э-тов по ключу в дереве Опции

[Artex]

Всем привет, очень прошу помочь с деревом, я читал FAQ, но не смог разобраться (( Задача такая: изменить
отрицательные элементы в дереве на их abs величины, похожей нигде пока не нашел... Из всего курса паскаля не врубился только в эту. Помогите пожалуйста дописать процедуру ввода элементов и использование этих процедур в программе, очень прошу...

Procedure Abs(T: TTree);
Begin
  If T <> nil Then
    With T^ Do Begin
      if data<0 Then Data := abs(data);
      AbsLeft(T); AbsRight(T)
    End
End;
procedure PrintTree(t:Ttree;h:integer);
var i:integer;
begin
 if t<>nil then
   with t^ do
   begin
     PrintTree(left,h+1);
     for i:=1 to h do write('    ');
     writeln(key);
     PrintTree(right,h+1);
   end;
end;


var 
  root: TTree;
...
  

begin
  ... { заполнение дерева }
 
  
    Abs(root);

  ... { выводим результат }
end.

Сообщение отредактировано: volvo - 25.12.2006 19:55