[pascal] matrice inverse et multiplication
al_aliias
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
ARSIH -
ARSIH -
bonjour,
J'aimerai que l'on m'aide pour trouver un algorythme en pascal (pas en turbo pascal) pour calculer l'inverse d'une matrice et la multiplication de deux matrices.
Merci de votre aide.
alexandre
J'aimerai que l'on m'aide pour trouver un algorythme en pascal (pas en turbo pascal) pour calculer l'inverse d'une matrice et la multiplication de deux matrices.
Merci de votre aide.
alexandre
A voir également:
- [pascal] matrice inverse et multiplication
- Turbo pascal - Télécharger - Édition & Programmation
- Annuaire inversé - Guide
- My pascal - Télécharger - Édition & Programmation
- Ecran inversé - Guide
- Dev pascal - Télécharger - Édition & Programmation
2 réponses
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.