Поиск листов в дереве, Поиск листов в дереве Опции

[The_Answer]

Помогите плиз. Есть процедура поиска глубины дерева и количество листов, а как соединить и натфти количество листов на куаждом уровне

function countdepth(root:PTree;level:integer):integer;//Глубина
var dr,dl:integer;
begin
if (root=NIL) then	(* Если дерево пустое, то *)
countdepth:=level-1	(* Глубина текущей ветви = текущему уровню - 1*)
else	(* Иначе *)
begin
dr:=countdepth(root^.left,level+1);
dl:=countdepth(root^.right,level+1);
if (dr>dl) then	(* Глубина текущей ветви равна максимальной из глубин её поддеревьев *)
countdepth:=dr
else
countdepth:=dl;
end;
end;

function countleafs(root:PTree):integer; Количество листьев
begin
	if (root<>NIL) then (* Если дерево не пустое, то *)
		if (root^.left=NIL) and (root^.right<>NIL) then  (* Если оно - лист,то *)
			countleafs:=1 (* Количество листов в нём = 1 *)
		else (* Иначе *)
			countleafs:=countleafs(root^.left)+countleafs(root^.right)
                        (* Количество листов = сумме листов левой и правой ветвей *)

	else (* Иначе, если дерево пустое , *)
		countleafs:=0; (* Количество листов в нём = 0 *)
end;

procedure countleafs_wrapper(root:PTree);
begin
	writeln('Chislo listov dereva : ',countleafs(root));
	writeln;
	writeln('Nachmite lybyu klavishy');
	readkey;
end;

Сообщение отредактировано: volvo - 6.11.2006 20:09