Ausgabe des Labyrinths

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

PathFinder.m2
PROCEDURE WriteMaze(maze: Maze; width, height: MazeSize);
   (* Ausgabe des Labyrinths auf stdout *)
   VAR
      line, column: MazeIndex;
BEGIN
   FOR line := 0 TO height-1 DO
      FOR column := 0 TO width-1 DO
         Write(maze[line, column]);
      END;
      WriteLn;
   END;
END WriteMaze;

*Wenn Nullbytes jeweils am Ende der Zeilen wären, könnte die innere Schleife durch ein WriteString(maze[line]); ersetzt werden.
 

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