Generierung von Wegematrizen

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

CreateMatri.m2
MODULE CreateMatrix;

   FROM Arguments IMPORT InitArgs, FetchCard, AllArgs;
   FROM InOut IMPORT WriteCard, WriteLn;
   FROM RandomGenerator IMPORT Random;

   VAR
      n: CARDINAL;
      i, j: CARDINAL;
      distance: CARDINAL;

BEGIN
   InitArgs("squarelen");
   FetchCard(n);
   AllArgs;

   FOR i := 1 TO n DO
      FOR j := 1 TO n DO
         IF i = j THEN
            distance := 0;
         ELSE
            distance := Random(1, 9);
         END;
         WriteCard(distance, 2);
      END;
      WriteLn;
   END;
END CreateMatrix.

*Random liefert einen ganzzahligen Wert gleichverteilt aus dem gegebenen Intervall.
 

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