Berechnen der Route III

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

SantaClaus.m2
PROCEDURE NextLocation(location: Location) : Location;
   VAR
      next: Location;
      mindistance: Distance;
      minlocation: Location;
BEGIN
   mindistance := MAX(Distance);
   FOR next := 0 TO noflocations-1 DO
      IF ~visited[next] THEN
         IF distances[location, next] < mindistance THEN
            mindistance := distances[location, next];
            minlocation := next;
         END;
      END;
   END;
   RETURN minlocation
END NextLocation;

*Von den noch nicht aufgesuchten Orten ist der nächstgelegene zurückzuliefern.
 

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