blikk info infothek forum galerie sitemap

Matrizenaddition

 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 addition(A: matij;           
                   B: matij;
                   VAR C: matij;
                   Azeile: INTEGER;
                   Bzeile:INTEGER;
                   Aspalte: INTEGER;
                   Bspalte: INTEGER;
                   VAR Czeile: INTEGER;
                   VAR Cspalte: INTEGER);
VAR
  i, j: INTEGER;
  zeile, spalte: INTEGER;
BEGIN
  IF (Azeile = Bzeile) AND (Aspalte = Bspalte) THEN BEGIN
    zeile := Azeile;
    spalte := Bspalte;
    FOR i := 1 TO zeile DO BEGIN
      FOR j := 1 TO spalte DO BEGIN
        C[i,j] := A[i,j] + B[i,j]
      END
    END
  END;
  Czeile := Azeile;
  Cspalte := Aspalte;
END;
nach oben