Bonjour,

Je suis débutant en programmation et je commence par faire des programmes tout simples avec un logiciel appelé ALGORITHMES.EXE
Je cherche à faire un calcul de matrice.
Je dois multiplier une matrice 3X3 par une autre 3X3 et obtenir le résultat.
Voici ce que j'ai fait :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
algo MULTIPLICATION 3X3 ET 3X3
 
var
   M1[1..3,1..3], M2[1..3,1..3], M3[1..3,1..3] : entier
   i,j,k : entier
 
Début
 Pour i de 1 à 3
      Pour j de 1 à 3
      afficher("Valeur de la Matrice1 ?, M1[",i)
      afficher(",",j)
      saisir("]=",M1[i,j])
      a_la_ligne
      Finpour
   Finpour
   Pour i de 1 à 3
      Pour j de 1 à 3
      afficher("Valeur de la Matrice1 ?, M2[",i)
      afficher(",",j)
      saisir("]=",M2[i,j])
      a_la_ligne
      Finpour
   Finpour
   Pour i de 1 à 3
      Pour j de 1 à 3
         Pour k de 1 à 3
            M3[i,1]:=M3[i,1]+M1[i,j]*M2[j,k]
         finpour
      Finpour
   Finpour
   a_la_ligne
   afficher("la multiplication des deux matrices est :")
   a_la_ligne
   Pour i de 1 à 3
      Pour j de 1 à 3
      afficher("",M3[i,j])
      Finpour
       a_la_ligne   
   Finpour
Fin
Si je rentre les données suivantes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
1   -1   1      3   0   -1     6   -1   -7
3    0    6  X  -2  1   -7 =  15   0    3
0    2    1      1    0    1     -3   2   15
le résultat donne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
6   -1   -7
15   0    3
-3    2    15
Mais mon résultat obtenu est : -2
18
14

Je cherche aussi à faire multiplier une matrice 3X3 par une matrice 2X3.

Merci pour votre aide.