Exemple pour une matrice carré :
Code :
- { constante indiquant la taille de la matrice }
- const Taille = 5;
- { type matrice de réel de taille 'Taille' }
- type tMat = array [1..Taille, 1..Taille] of real;
- { saisie d'une matrice Mat passée par adresse }
- procedure SaisirMatrice (var Mat: tMat);
- var
- x, y: integer;
- begin
- writeln ('Veuillez entrer la matrice : ');
- for y := 1 to Taille do
- for x := 1 to Taille do begin
- write (y + ', ' + x + ' : ');
- readln (Mat[y, x])
- end
- end;
|
Ce code ne marchera pas tel quel, mais ça te montre un peu comment faire. Tu dois avoir vu dans tes cours qu'on accède à chaque élément d'une matrice par TaMatrice[y, x] par exemple, ce qui te permettra de faire les multiplications (entre autres).
Pour des matrices non carrées, fait attention à leur dimension avant de les multiplier.
, alors si vous pouviez m'aider...