Подсчитать количество листьев, используя рекурсию

@xSCJx · Регистрация: 24.12.2012

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

Не могу никак подсчитать количество листьев, рекурсией. Помогите пожалуйста.

Delphi

  BSTree = ^node;
  node   = record // tree node
            val: integer;
              l: BSTree; // left
              r: BSTree; // right
           end;

Добавлено через 3 часа 42 минуты
никто не поможет? ((

@palva · 10.02.2014, 04:04

Pascal

function nleaf(t: BsTree): Integer;
var
  n: Integer;
begin
  if t=Nil then Result:=0
  else
  begin
    n := nleaf(t^.l)+nleaf(t^.r);
    if n=0 then Result:=1
    else Result:= n;
  end;
end;

@xSCJx · 10.02.2014, 16:57 **[ТС]**

palva, огромное спасибо.

@xSCJx 22 / 19 / 6 Регистрация: 24.12.2012 Сообщений: 435
	10.02.2014, 16:57 [ТС]	3
	palva, огромное спасибо. 0