blikk info infothek forum galerie sitemap

Transponieren einer Matrix

 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 transpon(A: matij;
                   VAR C: matij;
                   Azeile: INTEGER;
                   Aspalte: INTEGER;
                   VAR Czeile: INTEGER;
                   VAR Cspalte: INTEGER);

VAR i,j: INTEGER;
BEGIN
  FOR i:=1 TO Azeile DO
    FOR j:=1 TO Aspalte DO
      C[j,i] := A[i,j];
  Czeile := Aspalte;
  Cspalte := Azeile
END;
nach oben