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

UptoLike

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

Рубрика:

Так как корень дерева Root находится на нулевом уровне, то обращение к

процедуре PrintTree будет иметь вид

PrintTree(Root,0)

Пример 3.6. Описать процедуру MaxEl , определяющую наибольший

элемент непустого дерева T.

Алгоритм MaxEl использует префиксный обход дерева: наибольший эле-

мент находится или в узле, или в его левом поддереве, или в его правом

поддереве.

procedure MaxEl(T : Tree; var max : integer);

var m : integer;

begin

if T <> nil then

begin

max:=T^.inf;

if T^.L <> nil then

begin

MaxEl(T^.L, m);

if m > max then max:=m

end;

if T^.R <> nil then

begin

MaxEl(T^.R, m);

if m > max then max:=m

end

end; { MaxEl }