Datenstruktur der Implementierung

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

SortedBinaryTrees.om
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.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 29.06.1999