|
![]() ![]() ![]() ![]() ![]() |
TYPE Node = POINTER TO NodeRec; NodeRec = RECORD object: Objects.Object; left, right: Node; END; Tree = POINTER TO TreeRec; TreeRec = RECORD (Objects.ObjectRec) compare: CompareProc; comparable: ComparableProc; root: Node; END; |
![]() | Die Knoten sind gegenüber den unsortierten binären
Bäumen unverändert.
|
![]() | Die bei Create übergebenen Prozedurvariablen
werden im Record für den Baum zur späteren Verwendung notiert.
|
![]() ![]() ![]() ![]() ![]() |
Copyright © 1999, 2004 Andreas F. Borchert, in HTML konvertiert am 28.01.2005 |