Hauptprogramm

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

PathFinder.m2
(*
   Allgemeine Informatik I / Programmieren I    WS 1998/1999
   Musterloesung fuer das Blatt 11, Aufgabe 13
   Andreas Borchert, 21. Januar 1998
*)
MODULE PathFinder;

   FROM Arguments IMPORT InitArgs, GetFlag, GetArg, AllArgs,
      Usage;
   FROM ASCII IMPORT nl;
   FROM FtdIO IMPORT FwriteString, FwriteLn;
   FROM InOut IMPORT WriteString, Write, WriteLn, ReadString;
   FROM StdIO IMPORT FILE, MODE, Fopen, Fgetc, stdin, stderr;
   FROM SysExit IMPORT Exit;
   FROM SysPerror IMPORT Perror;

   (* ... *)

BEGIN
   ProcessArgs;
   IF ReadMaze(input, maze, width, height, entry, exit) THEN
      SolveMaze(maze, width, height, entry, 0);
      WriteMaze(maze, width, height);
   END;
END PathFinder.

*Nach dem Bearbeiten der Argumente und dem erfolgreichen Einlesen des Labyrinths, wird von SolveMaze nach einem Lösungsweg gesucht und dieser dann von WriteMaze ausgegeben.
 

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