Następnik drzewa binarnego. Taka sama sytuacja, tez mi się to do konca nie zgadzalo wiec napisałam to po swojemu:
Czyli ja jego algorytm zmodyfikowałam i zapisałam tak:
Function NastepnikWezla( var wartość: wezel): wezel
Var Biezacy Wezel: wezel
Begin
BiezacyWezel:=wartość
IF BiezacyWezelMaPrawegoSyna=false
THEN BiezacyWezel:=OjciecBiezacegoWezla
IF BieżacyWezel>wartość
NastepnikWezla:=BieżacyWezel
ELSE NastepnikWezla:=OjciecBieżacegoWezla
End
ELSE BiezacyWezel:=PrawySyn
IF BiezacyWezel=NIL
THEN NastepnikWezla:=BiezacyWezel
ELSE repeat
BieżacyWezel:=LewySyn
UNTIL BiezacyWezel=NIL
wige