blikk info infothek forum galerie sitemap

Matrizenmultiplikation

 zur Aufgabenstellung
{Der Type steht in allen Prozeduren. Sie wurden mit dieser Matrix getestet (hier nur zum Verständnis am Anfang der Prozedur)}

TYPE
  matij = ARRAY[1..10,1..10] OF REAL;

PROCEDURE multi(A: matij;             
                B: matij;
                VAR C: matij;
                Azeile: INTEGER;
                Bspalte: INTEGER;
                Aspalte: INTEGER;
                VAR Czeile: INTEGER;
                VAR Cspalte: INTEGER);
VAR
  i, j, k: INTEGER;
  zv : REAL;
BEGIN
  FOR i := 1 TO Azeile DO BEGIN
    FOR k := 1 TO Bspalte DO BEGIN
      zv := 0;
      FOR j := 1 TO Aspalte DO
        zv := zv + A[i,j] * B[j,k];
      C[i,k] := zv
    END
  END;
  Czeile := Azeile;
  Cspalte := Bspalte;
END;
nach oben