написать процедуру добавления элементов одного дерева в другое

[marisha24]

написать на dephi процедуру добавления элементов одного дерева в другое
так чтобы сохранилась бинарная упорядочность элементов

[Black Fregat]

Ничего лучше, вроде, не придумано, чем обход одного и вставка по одному в другое

[marisha24]

а можете кодом, пожалуйста, приложить?

[marisha24]

Сообщение от Black Fregat

Ничего лучше, вроде, не придумано, чем обход одного и вставка по одному в другое

а можете, пожалуйста, кодом приложить?

[mihаli4]

написать на dephi процедуру добавления элементов одного дерева в другое
так чтобы сохранилась бинарная упорядочность элементов

Это приказ?
А кому конкретно?

[marisha24]

Нужно написать процедуру добавления элементов одного дерева в другое так

вот что у меня получилось

procedure PrintTree1 ( ANode : pTree );
Begin
if ANode <> nil then begin
PrintTree1 ( ANode^.Right);
Form1.memo2.Lines.Addr (inttostr (ANode^.Data));
PrintTree1 ( ANode^.Left);
end;
end;

procdure TForm1.Button2Click (Sender: TObject);
var i: Integer;
begin Randomize;
New ( Tree ); Tree := nil;
For i := 1 to 5 do begin
InsTree ( Tree , Random ( 10 ) );
end;
Memo1.Lines.Clear;
PrintTree ( Tree );
Memo2.Lines.Clear;
PritTree1 (Tree);
end;

[Black Fregat]

Обход есть. Вставка есть. Что мешает их соединить?