|
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 |