Rekurzní fce, problém – Delphi – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Rekurzní fce, problém – Delphi – Fórum – Programujte.comRekurzní fce, problém – Delphi – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
29. 5. 2009   #1
-
0
-

Zdravim, vsecky bombardaky mam tuhle funkci na pruchod binarnim stromem a najiti otce prvku "hledany".

kod

function TAbsBSTree.ZpristupniOtce(prvek,hledany:TAbsBSTreeItem):TAbsBSTreeItem; //preorder
begin
if (JePrazdny) then
Result:=nil
else
begin
if (prvek=nil) then
Exit
else if (prvek=hledany) then
Result:=prvek
else if ((prvek.GetLevy=hledany) OR (prvek.GetPravy=hledany)) then
Result:=prvek
else
begin
ZpristupniOtce(prvek.GetLevy,hledany);
ZpristupniOtce(prvek.GetPravy,hledany);
end;
end;
end;

Vzdycky toho otce najdu ale pak mam problem tu adresu dostat az na prvni uroven toho rekuzni volani takze vysledku se mi
preda nejaka nesmyslna hodnota...Potreboval bych pichnout :-)

Nahlásit jako SPAM
IP: 213.19.21.–
Reklama
Reklama
o-lox0
Super člen
29. 5. 2009   #2
-
0
-

napadlo mě:

function TAbsBSTree.ZpristupniOtce(prvek,hledany:TAbsBSTreeItem):TAbsBSTreeItem; //preorder
begin
Result:=nil;
if (prvek=nil) then
Exit
else if (prvek=hledany) then
Result:=prvek // tohle ale nevraci otce, bych vypustil celou podminku
else if ((prvek.GetLevy=hledany) OR (prvek.GetPravy=hledany)) then
Result:=prvek
else
begin
result:=ZpristupniOtce(prvek.GetLevy,hledany);
If result=nil then
result:=ZpristupniOtce(prvek.GetPravy,hledany);
end;
end;

Nahlásit jako SPAM
IP: 85.71.152.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 8 hostů

Podobná vlákna

Skok z fce do fce — založil Fcelik

Fce — založil Dave-CZ

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý