Не пойму как работает рекурсия

[Пепел Феникса]

Это же все из-за рекурсии. я просто не пойму каким образом это происходит. вы не поняли суть

код выполняется последовательно.
так что получается так:

procedure prObh(Node:Pnode);
begin
  if node<>nil then
  begin
   form1.Edit1.Text := form1.Edit1.Text+node.NKey+' ';
   probh(node.pLeft);     //1
   probh(node.pRight);    //2
  end;
end;

допустим код пройдет три итерации от основного вызова.
выйдут такие вызовы:
1
1
1
2
2
2

[kettanaito]

googl, в первом варианте работет сначала vyvod(node.pRight,tmpItem) а потом срабатывает vyvod(node.pLeft,tmpItem).
Может ввести какой-то параметр, который будет ответственным за выбор?

procedure prObh(Node:Pnode; Param:TParam);
begin
  if node<>nil then
  begin
   form1.Edit1.Text := form1.Edit1.Text+node.NKey+' ';
   case node.Param of
    npLeft: probh(node.pLeft,Param);     
    npRight: probh(node.pRight,Param);    
  end;
end;

[googl]

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

googl, честно говоря я не понимаю Вашего условия. Как можно сделать какую-либо операцию с Node если его значение равно nil? (Вы пытаетесь сделать vyvod(node.pLeft,tmpItem) при пустом узле, зачем?)

в данный момент мы рассматриваем обход. но там же все работает ведь.
я могу туда и root передать

[googl]

Сообщение от Пепел Феникса

код выполняется последовательно.
так что получается так:

procedure prObh(Node:Pnode);
begin
  if node<>nil then
  begin
   form1.Edit1.Text := form1.Edit1.Text+node.NKey+' ';
   probh(node.pLeft);     //1
   probh(node.pRight);    //2
  end;
end;

допустим код пройдет три итерации от основного вызова.
выйдут такие вызовы:
1
1
1
2
2
2

ну объясни, пожалуйста, почему. я вот и не понимаю этого. почему он 1 пропускает и вызывает 2? Это специфика рекурсивного вызова или что?

[googl]

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

googl, в первом варианте работет сначала vyvod(node.pRight,tmpItem) а потом срабатывает vyvod(node.pLeft,tmpItem).
Может ввести какой-то параметр, который будет ответственным за выбор?

procedure prObh(Node:Pnode; Param:TParam);
begin
  if node<>nil then
  begin
   form1.Edit1.Text := form1.Edit1.Text+node.NKey+' ';
   case node.Param of
    npLeft: probh(node.pLeft,Param);     
    npRight: probh(node.pRight,Param);    
  end;
end;

мне не нужно вводить ничего. все работает. я просто хочу разобраться как. эти примеры давали на лекции. я вот сел разбираться и не въеду

[Пепел Феникса]

ну объясни, пожалуйста, почему. я вот и не понимаю этого. почему он 1 пропускает и вызывает 2? Это специфика рекурсивного вызова или что?

почему пропускает, я же написал как вызовы пойдет.
у вас выходит так что сначало он пойдет до упора влева вниз, лишь потом направо начнет(заходя налево при необходимости).

как я понял это двоичное дерево, итого выходит имея дерево вида:

(нижняя строка нам не нужна)
разбор его в вашей процедуре пойдет так:
m
m.left->e
e.left->c
c.left->a
a.left->nil(условие не выполнится)
a.right->nil(условие не выполнится)
c.right->nil(условие не выполнится)
e.right->g
g.left->nil(условие не выполнится)
g.right->k
k.left->nil(условие не выполнится)
k.right->nil(условие не выполнится)
m.right->s
s.left->p
p.left->o
o.left->nil(условие не выполнится)
o.right->nil(условие не выполнится)
p.right->s
s.left->nil(условие не выполнится)
s.right->nil(условие не выполнится)
s.right->y
y.left->nil(условие не выполнится)
y.right->nil(условие не выполнится)

вот все итерации для дерева на картинке.
что еще не понятного?

[googl]

мне все понятно. спасибо тебе огромное. вот сути я так и не понял. почему, если условие не выполняется, т.е. узел nil происходит вызов probh(node.pRight), если они оба стоят в одном блоке. т.е. если условие не выполняется, по идее конец должен же быть. вот. мне не понятен сам процесс рекурсивного вызова.
вот если так написать

if nodeM<>nil then
 probh(node.pLeft)
else
 probh(node.pRight);

то понято. там же то же самое, только без ифов. вот мне и не понятен механизм вызова. вот и все. я же писал: почему вызывает 2, если он должен работу по принципу while завершить

[Пепел Феникса]

у вас что написано?

ЕСЛИ текущий элемент НЕ nil, ТО
    добавить текст в Edit
    вызвать процедуру с указателем на левый лист
    вызвать процедуру с указателем на правый лист

а то что вы мне рассказываете пишется в коде как:

if node.left<>nil then pr0bh(node.left);
if node.right<>nil then pr0bh(node.right);

если они оба стоят в одном блоке. т.е. если условие не выполняется, по идее конец должен же быть.

идет конец, но для текущего листа, а вызов то потом идет для правого листа родителя.
параметры то проверяйте иногда(раз уж отладкой пользуетесь)

[googl]

Ура. Теперь понял))) Спасибо большущее, мужики!!!