Ausbalancierte Bäume Sortieren mit AVL-Bäumen
Ausbalancierte Bäume Sortieren mit AVL-Bäumen
Ausbalancierte Bäume Sortieren mit AVL-Bäumen
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
if Forw=1 then<br />
LookNode:=NextNode(ActNum, LookNode)<br />
else LookNode:=LastNode(ActNum, LookNode);<br />
end;<br />
for I:=15 to 24 do<br />
begin<br />
GotoXY(2, I);<br />
ClrEol;<br />
end;<br />
end;<br />
{**********H A U P T P R 0 G R A M M***********}<br />
begin<br />
SetupScreen;<br />
InitTree;<br />
repeat<br />
Ch1:=ReadKey;<br />
case Ch1 of<br />
'1' : InputAdress;<br />
'2' : SearchAdress;<br />
'3' : DeleteAdress;<br />
'4' : Show_in_Order(1);<br />
'5' : Show_in_Order(0);<br />
else<br />
begin<br />
end;<br />
end;<br />
until Ch1='6';<br />
{ Ende : Datei schliepen - Baum löschen }<br />
Close(AdrFile);<br />
DelAllTree(<strong>AVL</strong>Root);<br />
ClrScr;<br />
end.<br />
aus mc 04/91 – Seite 78-90