обход прошитого дерева

[fergus2010]

Почему то при прошивке дерева вылезает переполнение стека

        unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
type u=^uz;
        uz= record
        i:integer; 
        l,r:u; 
        ltag  : boolean;
        rtag  : boolean;
        end;

var h,pold,y,x, p:u ; dn,s:integer;


function tree(k:integer):u;

var t:u;
begin

if k=0 then begin tree:=nil; exit; end;
new(t);
t^.i:=random(20)-5;
 t^.l:=tree(k div 2);
   t^.r:=tree(k-k div 2 - 1);
      tree:=t;
end;

procedure downup(h:u);

begin
 if h<>nil then begin
 downup(h^.l);
 downup(h^.r);
    Form1.Memo3.Lines.Add(inttostr(h^.i));
 end;
end;
   procedure updown(h:u);
 

begin
 if h<>nil then begin
 Form1.Memo1.Lines.Add(inttostr(h^.i));
updown(h^.l);
updown(h^.r);

end;
end;

procedure lr(h:u);

begin
 if h<>nil then begin
  lr(h^.l);
  Form1.Memo2.Lines.Add(inttostr(h^.i));
 
 lr(h^.r);

 end;
end;


procedure showtree(h:u; x,y,w,f:integer);
var
  s:string;
  r1: integer;
begin
  r1:=3;
  if h<> nil then
    with form1.Image1.Canvas do
      begin
        showtree(h^.l,x-w div 4,y+4*r1,w div 2,1); 
        showtree(h^.r,x+w div 4,y+4*r1,w div 2,-1); 
        if f<>0 then
          begin
            moveto(x,y);
            LineTo(x+f*(w div 2),y-4*r1);
          end;
        ellipse(x-5,y-5,x+15,y+15);
        s:=inttostr(h^.i);
        textout(x,y,s);
      end;
end;

 procedure sim_print(var x:u);
       procedure rpr( var p:u);
         begin
            if(y = NIL) then
        exit;
    rPr(y^.r);
    if(y^.r <> NIL) then
        y^.rtag := true
    else
    begin
        y^.rtag := false;
        y^.r := pold;
    end;
    pold := p;
    if(y^.ltag = true) then
        rPr(y^.l);
        end;
    begin
      if  x<> nil then
        begin
        sim_print(x^.l);
        rpr(x);
        sim_print(x^.r);
     end;
   end;



var

  i, n : integer;
    head :u;           
    o : u;      
Begin
    h:=tree(15);
  showtree(h,320,50,640,0);
 
   lr(h);
  downup(h);
  updown(h);
  new(head);
    head^.l := h;
    head^.r := head;
    pold := head;
    o := head^.l;
    sim_print(o);
   
  end;
End.

------------------
к сожалению, на форуме нет тега [spoiler]
поэтому используйте тег [code] для оформления кода.

Модератор
------------------

[Человек_Борща]

Чего вы с деревом делаете?

[fergus2010]

прошить дерево и обойти его после прошивки

[Человек_Борща]

Похоже только вы и знаете это ваше "прошить дерево".

[fergus2010]

хорошо я обхожу правую ветку дерева,ишу пустые узлы и при попытке указать то что узел не пуст и его не нужно заменять вылезает переполнение стека а кокретно здесь вылетает ошибка
if(y^.r <> NIL) then
y^.rtag := true
что стек переолнен

[Человек_Борща]

Увеличьте размер стэка.

[Аватар]

Вот здесь например. Ставте точку останова на rPr(y^.r)

 procedure sim_print(var x:u);
       procedure rpr( var p:u);
         begin
            if(y = NIL) then
        exit;
    rPr(y^.r);

А код не мешало бы нормально форматировать, вам же хуже