[pascal] matrice inverse et multiplication

al_aliias Messages postés 2 Statut Membre -  
 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
Configuration: Windows XP
Internet Explorer 6.0

2 réponses

  1. ARSIH
     
    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.
    2