отрицательные элементы в дереве на их 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 -