Modularisiertes Beispiel

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]

Maze.d
DEFINITION MODULE Maze;

   CONST
      space = " ";  (* freier Raum *)
      walk = "*";   (* Wegemarkierung *)

   PROCEDURE MinimalSize() : CARDINAL;
   PROCEDURE MaximalSize() : CARDINAL;

   PROCEDURE Init(lines, columns: CARDINAL);

   PROCEDURE Lines() : CARDINAL;
   PROCEDURE Columns() : CARDINAL;

   PROCEDURE Get(line, column: CARDINAL; VAR ch: CHAR);
   PROCEDURE Set(line, column: CARDINAL; ch: CHAR);

END Maze.

*Um ein funktionierendes Beispiel für die Modularisierung zu sehen, steht eine modularisierte Fassung der Musterlösung zur 13. Aufgabe zur Verfügung (Durchlaufen eines Labyrinths).
 
*Die Modularisierung ist bei diesem Beispiel noch weiter vorangeschritten: Auch die Ein- und Ausgabe und das Finden eines Weges wurden herausgetrennt.
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 04.02.1999