{ Calcul la puissance nieme d'une matrice     }
{ carree de reels                             }

action puissanceMatrice(a,p,m)
  Donnees  a : tableau [N][N] de reel                 { tableau source         }
           p : entier                                 { puissance              }
  Donnees / Resultat  m : tableau [N][N] de reel      { tableau resultat       }
  Locales i : entier                       { variable indice de boucle pour    }
          aux : tableau [N][N] de reel     { tableau auxiliaire                }
  copieMatrice(a,aux)
  pour i de 0 à N-2 faire
    produitMatrices(aux,a,aux)
  fait
  copieMatrice(aux,m)
fin action