constante N : entier <- ...
constante M : entier <- ...

{ Methode de copie d'une matrice de reel      }
{ dans une matrice de reel supposee           }
{ de taille identique                         }
  
action copie(src,dst)
  Données
    src : Tableau [N][M] de réel
  Résultat
    dst : Tableau [N][M] de réel
  locales
    i : entier
    j : entier
  pour i de 0 à N-1 faire
    pour j de 0 à M-1 faire
      dst[i][j] <- src[i][j]
    fait
  fait
fin action

{ Methode de transposition d'une matrice      }
{ de reel dans une matrice de reel            }
{ supposee de taille compatible               }
  
action transposition(src,dst)
  Données
    src : Tableau [N][M] de réel
  Résultat
    dst : Tableau [M][N] de réel
  locales
    i : entier
    j : entier
  pour i de 0 à N-1 faire
    pour j de 0 à M-1 faire
      dst[j][i] <- src[i][j]
    fait
  fait
fin action

{ Methode de transposition d'une matrice      }
{ carree de reel                              }
  
action transposition(m)
  Données / Résultats
    m : Tableau [N][N] de réel
  locales
    i : entier
    j : entier
    aux : réel
  pour i de 0 à N-2 faire
    pour j de i+1 à N-1 faire
      aux = m[i][j]
      m[i][j] = m[j][i]
      m[j][i] = aux
    fait
  fait
fin action