[pascal] matrice inverse et multiplication
Fermé
al_aliias
Messages postés
2
Date d'inscription
vendredi 18 mai 2007
Statut
Membre
Dernière intervention
25 juin 2007
-
18 mai 2007 à 11:02
ARSIH - 13 avril 2011 à 14:20
ARSIH - 13 avril 2011 à 14:20
A voir également:
- [pascal] matrice inverse et multiplication
- Annuaire inversé - Guide
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Ecran inversé - Guide
- Slash inversé ✓ - Forum MacOS
2 réponses
baladur13
Messages postés
47262
Date d'inscription
mercredi 11 avril 2007
Statut
Modérateur
Dernière intervention
31 janvier 2025
13 553
18 mai 2007 à 18:08
18 mai 2007 à 18:08
Je ne peux resoudre ton PB, regarde la si tu trouves de quoi moudre...
https://pascail.developpez.com/contribution/?page=unite#matrices1
https://pascail.developpez.com/contribution/?page=unite#matrices1
je ne sais pas programmer en pascal mais juste un pt astuce pr programmer la multiplication de deux matrices.
program produitde2matr;
uses wincrt;
var MatrA, MatrB, ProdMatr: array [1..3] of integer;
i,j,k: integer;
BEGIN
for i := 1 to 3 do
for j := 1 to 3 do
readln (MatrA[i,j]);
for i := 1 to 3 do
for j := 1 to 3 do
readln (MatrB[i,j]);
for i := 1 to 3 do
begin
ProdMatr := 0;
for j := 1 to 3 do
begin
for k := 1 to 3 do
prodMatr[i,j] := ProdMatr[i,j] + (MatrA[i,k]*MatrB[k,j]);
end;
end;
END.
program produitde2matr;
uses wincrt;
var MatrA, MatrB, ProdMatr: array [1..3] of integer;
i,j,k: integer;
BEGIN
for i := 1 to 3 do
for j := 1 to 3 do
readln (MatrA[i,j]);
for i := 1 to 3 do
for j := 1 to 3 do
readln (MatrB[i,j]);
for i := 1 to 3 do
begin
ProdMatr := 0;
for j := 1 to 3 do
begin
for k := 1 to 3 do
prodMatr[i,j] := ProdMatr[i,j] + (MatrA[i,k]*MatrB[k,j]);
end;
end;
END.