деревья, дельфи

[DmuS]

Привет всем. Помогите пожалуйста с задачей. Необходимо определить кол-во листьев в дереве, на заданном уровне. С рекурсией знаком не так давно Я пытался сделать через обход, вот что у меня получилось: x - уровень дерева, k - кол-во листьев

procedure preorder(t:PNode; var k:integer; x:integer);
begin
  if t<> nil then
    begin
      inc(i);
      if (i=x) and (t^.left=nil) and (t^.right=nil) then
        begin
        inc(k);
      dec(i);
      exit;
      end;
      preorder(t^.left);
      preorder(t^.right);
    end;
end;

Конечно же это результатов не принесло Помогите пожалуйста додуматься до правильного алгоритма

[sabbathist]

function preorder(t:PNode; x:integer): integer;
var v1,v2: integer;
begin
      if (i=x) 
        exit(1);
     v1:=0; v2:=0;
     if (t^.left<>nil) then v1:= preorder(t^.left,x+1);
     if (t^.right<>nil) then v2:=preorder(t^.right,x+1);
    exit(v1+v2);
end;

где i-требуемый уровень х - текущий. негрубые баги допустимы. писал в этом окне.

[DmuS]

Большое спасибо, разобрался. Только написал через процедуру.

procedure TForm3.N17Click(Sender: TObject);
 var i,k,fl:integer;

procedure preorder(t:PNode; x:integer);
var v1,v2: integer;
begin
  if (i=x) then
    begin
      if (t^.left=nil) and (t^.right=nil) then
      inc(k);
      exit;
    end;
  if (t^.left<>nil) then preorder(t^.left,x+1);
  if (t^.right<>nil) then preorder(t^.right,x+1);
  exit;
end;


begin
  i:=StrToInt(InputBox('Ââåäèòå óðîâåíü','Óðîâåíü',''));
  k:=0; preorder(root,0);
  fl:=MessageDlg('Êîë-âî ëèñòüåâ ðàâíî '+IntToStr(k),mtInformation,[mbOk],0);
end;

Все работает! Еще раз спасибо!