Структуры данных. Деревья - 18 стр.

UptoLike

Составители:

Рубрика:

Пример 3.9. Описать функцию Equal проверки на равенство двух двоич-

ных деревьев одинаковой структуры.

function Equal(T1,T2 : Tree ) : boolean;

begin

if T1=T2 then Equal:=true

else

if (T1 <> nil) and (T2 <> nil) then

if T1^.inf = T2^.inf then

Equal:=Equal(T1^.L,T2^.L) and

Equal(T1^.R,T2^.R)

else Equal:=false

end; { Equal }

Пример 3.10. Описать процедуру Copy, которая создает копию T2

дерева T1.

procedure Copy(T1 : Tree; var T2 : Tree);

begin

if T1 = nil then T2:=nil

else

begin

new(T2); T2^.inf:=T1^.inf;

Copy(T1^.L,T2^.L);

Copy(T1^.R,T2^.R);

end

end; { Copy }