Копирование заданного бинарного дерева

@tonia233 · Регистрация: 07.10.2012

Author24 — интернет-сервис помощи студентам

Составить программу копирования заданного бинарного дерева в бинарное дерево

@volvo · 28.03.2013, 14:54

Программу? Не, это слишком. Функцию - пожалуйста:

Delphi

function CopyTree(root : TTree) : TTree;
begin
   Result := nil;
 
   if Assigned(root) then
   begin
      Result := new(TTree);
      Result^.Value := root^.Value;
      Result^.Left := CopyTree(root^.Left);
      Result^.Right := CopyTree(root^.Right);
   end
end;

У тебя ж дерево по условию заданное - вот и копируй его этой функцией. А уж как задать - это самостоятельно думай.

@tonia233 0 / 0 / 0 Регистрация: 07.10.2012 Сообщений: 29
		1
	Копирование заданного бинарного дерева 28.03.2013, 08:00. Показов 1637. Ответов 1 Метки нет (Все метки) Составить программу копирования заданного бинарного дерева в бинарное дерево 0

	28.03.2013, 14:54

Опции темы

Копирование заданного бинарного дерева

Решение