Einfacher Rahmen eines Sortierprogramms

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

ComparisonCounting.om
MODULE ComparisonCounting;

   IMPORT Read, Streams, Write;

   CONST
      maxitems = 128;
   TYPE
      Item = INTEGER;
      Items = ARRAY maxitems OF Item;

   PROCEDURE Sort(VAR items: Items; nofitems: INTEGER);
      (* ... *)
   END Sort;

   PROCEDURE ReadItems(VAR items: Items) : INTEGER;
      (* ... *)
   END ReadItems;

   PROCEDURE WriteItems(items: Items; nofitems: INTEGER);
      (* ... *)
   END WriteItems;

   PROCEDURE DoIt;
      (* ... *)
   END DoIt;

BEGIN
   DoIt;
END ComparisonCounting.

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