/* Fonction de calcul et retour du tableau      */
/* de caracteres obtenu par linéarisation       */
/* d'une matrice de carateres                   */
/* t : La matrice à linéariser                  */

caractere [] fonction transformationEnTableau(-> caractere [][] t)
  caractere [longueur(1,t)*longueur(2,t)] res
  entier i <- 0
  entier l
  entier c
  pour l de 0 à longueur(1,t)-1 faire
    pour c de 0 à longueur(2,t)-1 faire
      res[i] <- t[l][c]
      i <- i+1
    fait
  fait
  retourner res
fin fonction

/* Fonction de calcul et retour de la matrice   */
/* de caracteres obtenue par transformation     */
/* en matrice d'un tableau de carateres         */
/* t : Le tableau à transformer                 */
/* lignes   : Le nombre de lignes               */
/*            de la matrice créée               */
/* colonnes : Le nombre de colonnes             */
/*            de la matrice créée               */

caractere [][] fonction transformationEnMatrice(-> caractere [][] t,
                                                -> entier lignes,
                                                -> entier colonnes)
  caractere [lignes][colonnes] res
  entier i
  entier l
  entier c
  si lignes*colonnes <= longueur(1,t) alors
    i <- 0
    pour l de 0 à lignes-1 faire
      pour c de 0 à colonnes-1 faire
        res[l][c] <- t[i]
        i <- i+1
      fait
    fait
    sinon
    l <- 0
    c <- 0
    pour i de 0 à lignes*colonnes-1 faire
      si i < longueur(t) alors
        res[l][c] <- t[i]
        sinon
        res[l][c] <- ' '
      fsi
      c <- c+1
      si c == colonnes alors
        c <- 0
        l <- l+1
      fsi
    fait
  fsi
  retourner res
fin fonction