Algorithme ProduitMatriciel;
const N = 4 ;
var i,j,k: entier;
A, B, C : tableau[1..N] de entier;
Début
ecrire('Entrez les elements de votre premiere matrice ') ;
Pour i de 1 à N faire
Pour j de 1 à N faire
Lire ( A[i,j] );
Fin Pour
Fin Pour
ecrire('Entrez les elements de votre deuxieme matrice ') ;
Pour i de 1 à N faire
Pour j de 1 à N faire
Lire ( B[i,j] );
Fin Pour
Fin Pour
Pour i de 1 a N Faire
Pour j de 1 a N Faire
C[i,j] <- 0
Pour k de 1 a n Faire
C[i,j] <- C[i,j] + A[i,k] * B[k,j]
Fpour
Fpour
Fpour
ecrire('Affichage de la matrice ') ;
Pour i de 1 à N faire
Pour j de 1 à N faire
ECRIRE( C[i,j] );
Fin Pour
Fin Pour
Fin.