Высота бинарного дерева

[dido171]

Доброе время суток)
Нужна ваша помощь, на носу зачет, а задача не получается Т_Т
Задачка: создать бинарное дерево. Написать рекурсивную процедуру определения высоты дерева.
Дерево создала, а вот с процедурой есть некие проблемы:

procedure hait (var head:ref; var d,i:integer);
var d:integer;
     p:ref;
begin
 p:=head;
 i:=i+1;
  while d<>1 do 
    begin
      if (p^.lnext<>nil) then
        hait (p^.lnext,d,i);
      if (p^.rnext<>nil) then
        hait (p^.rnext,d,i);    
       if (p^.lnext=nil) and (p^.rnext=nil)  then
         d:=1;
    end;
 writeln (i);
end;

препод сказал что процедура реализована не до конца, что когда мы просматриваем ветви дерева справа и слева, то там и там будут свои max-значения, которые надо сравнить между собой, и если они равны 0, то прога возвращается в вершину, и присваивает длине значение 1.
Пожалуйста помогите ее доделать.

[Greblin]

function height(p: ref): integer;
var l, r: integer;
begin
if p <> nil then
  begin
  l := height(p^.left);
  r := height(p^.right);
  if l > r then height := l + 1
  else height := r + 1
  end
else
  height := 0;
end;

[Leon.]

dido171 вы не могли бы скинуть полностью текст программы? Пожалуйста!

[Crocks]

Такой вопрос - а возможно ли реализовать данную программу при помощи процедуры? заранее спасибо.

[ujif]

Сообщение от Greblin

function height(p: ref): integer;
var l, r: integer;
begin
if p <> nil then
  begin
  l := height(p^.left);
  r := height(p^.right);
  if l > r then height := l + 1
  else height := r + 1
  end
else
  height := 0;
end;

все работает, однако не могу понять как...
какие значения идут в l и r
понятно ,вроде что обходит все дерево
может проясните ,будьте так любезны