Witam.
mam za zadanie na Algorytmice zrobic nierekurencyjne wstawianie wezlow do drzewa BST oraz funkcje postorder, ktora tez ma byc nierekurencyjna.
odnalazlem te funkcje w programie no i sa:
//dodaje nowy element do drzewa
procedure dodaj(var wsk :PElement; war :integer);
begin
if(wsk=nil)then tworz(wsk,war)
else
begin
if(war<=wsk.wartosc) then dodaj(wsk.lewy, war)
else dodaj(wsk^.prawy, war);
end;
end;
===================================
procedure TForm1.InorderRysuj ( korzen : PElement);
begin
if korzen <> nil THEN
begin
inorderRysuj ( korzen^.lewy);
RysujWezel(korzen,szerokoscDrzewa);
inorderRysuj ( korzen^.prawy);
end;
end;
czy ktos wie jak to przerobic by bylo jak nalezy?
od tego zalezy moje zaliczenie hmhm :)
jesli znajdzie sie ktos pomocny, to program moze znaleŹĆ tutaj:
www.zse.ids.bielsko.pl/~krzysiek/bst2.zip
w zalaczeniu przesylam caly program
bede wdzieczny i oczywiscie zawsze mozemy sie dogadac..