pascal matrix tauschen

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • pascal matrix tauschen

    Hallo
    In einem PASCAL-Programm soll eine 5×5 Matrix transponiert werden. Das heisst, die Zeilen und Spalten der Matrix sind zu vertauschen, wie im folgenden Beispiel gezeigt ist:

    5 8 1 24 17
    16 14 7 5 23
    22 20 13 6 4
    3 21 19 12 10
    9 5 22 18 11

    Ausgabe

    5 16 22 3 9
    8 14 20 21 5
    1 7 13 19 22
    24 5 6 12 18
    17 23 4 10 11

    So weit bin ich
    Bitte um Unterstützung
    Danke

    Quellcode

    1. const
    2.   GROESSE = 5;
    3.   type
    4.   tIndex = 1..GROESSE;
    5.   tMatrix = array [tIndex,tIndex] of integer;
    7.   var
    8.   A : tMatrix;
    9.   hilf,
    10.   i,
    11.   j : integer;
    13. { Lesen der Matrixwerte in A: }
    14.   for i := 1 to GROESSE do
    15.     for j := 1 to GROESSE do
    16.       readln (A[i,j]);
    Alles anzeigen