Einlesen der Matrix III

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

SantaClaus.m2
IF counter # 0 THEN
   (* somit folgt aus der Invariante: squarelen^2 # index *)
   WriteString("Die Wegematrix ist nicht quadratisch!");
   WriteLn;
   RETURN FALSE
END;
IF squarelen = 0 THEN
   WriteString("Keine Wegematrix vorgefunden!");
   WriteLn;
   RETURN FALSE
END;
FOR i := 0 TO squarelen-1 DO
   FOR j := 0 TO squarelen-1 DO
      matrix[i, j] := buf[i * squarelen + j];
      IF (i = j) & (matrix[i, j] # 0) THEN
         WriteString("Das "); WriteCard(i+1, 1);
         WriteString(". Element der Spur ist nicht 0!");
         WriteLn;
         RETURN FALSE
      END;
   END;
END;
n := squarelen;
RETURN TRUE

*Wenn alle Werte eingelesen sind, können die Werte in die Wegematrix nach Kenntnis ihrer Größe übertragen werden.
 

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