Wegsuche im Labyrinth V

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

PathFinder.m2
PROCEDURE Weiter() : BOOLEAN;
   (* Implementierung der Option -q *)
   VAR
      answer: ARRAY[0..0] OF CHAR;
BEGIN
   WriteString("Weiter?"); ReadString(answer);
   RETURN answer[0] # "n"
END Weiter;

PROCEDURE Exit(x, y: MazeIndex) : BOOLEAN;
   (* Liegt (x,y) am Rand des Labyrinths? *)
BEGIN
   RETURN (x = 0) OR (x = height-1) OR
          (y = 0) OR (y = width-1) OR
          (x = startx) & (y = starty)
END Exit;

*Weiter verwendet ReadString anstelle von Read, um ein ``j'', gefolgt von RETURN, genauso wie ein einfaches RETURN zu behandeln.
 

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