Вершины дерева. Заданный уровень. Опции

[MRK]

Прошу помощи. Написал программу, которая выводит все вершины дерева на заданном уровне. Но еще требуется подсчитать количество этих вершин. Пытался менять процедуру printlevel (добавлял счётчик и т.п), но ничего не выходит так как она рекурсивная. Как её

[volvo]

Пытался менять процедуру printlevel (добавлял счётчик и т.п), но ничего не выходит так как она рекурсивная

Ну, и что? В рекурсивной процедуре нельзя менять значение глобального счетчика?

var
  counter: integer;
{-----------------------------------------------}
procedure printlevel(root:ptree;level,curlevel:integer);
begin
    if (root<>NIL) then
      begin
        if (curlevel=level) then begin
          write(root^.inf,' | '); inc(counter);
        end
        else
          begin
            printlevel(root^.left,level,curlevel+1);
            printlevel(root^.right,level,curlevel+1);
          end;
      end;
end;

begin { main }
  ...
  write('Vvedite nomer urovnya dlya pokaza');
  writeln;
  readln(level);
  writeln('Vse vershini na urovne ',level,' : ');
  counter := 0; printlevel(root,level,0);
  writeln('amount = ', counter);
  writeln;
  ...
end.