{ Fonction de calcul et retour du produit     }
{ d'une matrice de reel de taille n.m         }
{ par une matrice de reel de taille m.p       }
{ Le retour est une matrice de reel           }
{ de taille n.p                               }
{ n, m et p quelconques                       }
{ m1 : La première matrice de reel            }
{ m2 : La seconde matrice de reel             }

reel [][] fonction produitMatriceMatrice(-> reel [][] m1,
                                         -> reel [][] m2)
  entier n <- longueur(1,m1)
  entier m <- longueur(2,m1)
  entier p <- longueur(2,m2)
  reel [n][p] r
  entier i
  entier j
  entier k
  pour i de 0 à n-1 faire
    pour j de 0 à p-1 faire
      r[i][j] <- 0.0
      pour k de 0 à m-1 faire
        r[i][j] <- r[i][j] + m1[i][k]*m2[k][j]
      fait
    fait
  fait
  retourner r
fin fonction