Algorithme Produit-Somme-Matrice
Variable
i,j,k,n:Entier;
A:Tableau[1..n][1..n];
B:Tableau[1..n][1..n];
S:Tableau[1..n][1..n];
P:Tableau[1..n][1..n];
Début
Ecrire("Entrer l'ordre de la matrice que vous voulez:");
Lire(n);
Pour i de 1 à 2 Faire
Si i=1 alors
Ecrire("Remplissage de la matrice A");
Sinon
Ecrire("Remplissage de la matrice B");
FinSi
Pour j de 1 à n Faire
Ecrire("Entrer les valeurs de ligne ", j);
Pour k de 1 à n Faire
Si i=1 alors
Lire(A[j][k]);
Sinon
Lire(B[j][k]);
FinSi
FinPour
FinPour
FinPour
Pour i de 1 à n Faire
Pour j de 1 à n Faire
S[i][j]<-A[i][j]+B[i][j];
FinPour
FinPour
Pour i de 1 à n Faire
Pour j de 1 à n Faire
P[i][j]<-0;
FinPour
FinPour
Pour i de 1 à n Faire
Pour j de 1 à n Faire
Pour k de 1 à n Faire
P[i][j]<-P[i][j]+A[i][k]*B[k][j];
FinPour
FinPour
FinPour
Fin