Vorteil von Prozedurtypen

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

BubbleSort2.om
PROCEDURE SortStrings;
   VAR
      nofitems: INTEGER;
BEGIN
   nofitems := ReadStrings(strings);
   IF nofitems > 0 THEN
      Sort(StringGreaterThan, ExchangeStrings, nofitems);
      WriteStrings(strings, nofitems);
   END;
END SortStrings;

*Die gewonnene Flexibilität durch Prozedurtypen ermöglicht es jetzt, die gleiche Sortierprozedur für unterschiedliche Sortierprobleme zu lösen.
 
*Entsprechend der Optionen auf der Kommandozeile können nun unterschiedliche Typen und Kriterien ausgewählt werden.
 

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