blikk info infothek forum galerie sitemap

Drehen einer Matrix um 90°

 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 drehen(A: matij;
                 VAR C: matij;
                 Azeile:INTEGER;
                 Aspalte: INTEGER;
                 VAR Czeile: INTEGER;
                 VAR Cspalte: INTEGER);
VAR
  j,i : INTEGER;
BEGIN
  Czeile := Aspalte;
  Cspalte := Azeile;
  FOR i:=1 TO Azeile DO
    FOR j:=1 TO Aspalte DO
      C[j,(Azeile+1)-i] := A[i,j];
END;
nach oben