Exercices sur les matrices

Résolu/Fermé
est ce que quelqu'un parmi vous possede des exercices resolus sur les matrices en pascal??? svp si quelqu'un les possede les

14 réponses

  • Votes
  • Date
  • Date décroissante
  1. google tu connais?
    tape exercies sur les matrices avec solution en pascal et tu verras...
    voici un exemple :

    program produit_mat(input,output);
    var m1,m2,m3:array[1..10,1..10]of real;
    l,m,n,jl,jm,jn:integer;
    begin
    writeln('nb lignes 1ère matrice ?');
    readln(m);
    writeln('nb colonnes 1è matrice ?');
    readln(l);
    writeln('nb colonnes 2è matrice ?');
    readln(n);
    (* entrée de m1 *)
    writeln('première matrice');
    for jm:=1 to m do for jl:=1 to l do
    begin
    writeln('lig',jm,', col',jl,'?');
    readln(m1[jm,jl])
    end;
    (* entrée de m2 *)
    writeln('2ième matrice');
    for jl:=1 to l do for jn:=1 to n do
    begin
    writeln('lig',jl,', col',jn,'?');
    readln(m2[jl,jn])
    end;
    (* calcul du produit *)
    for jm:=1 to m do for jn:=1 to n do
    begin {calcul composante m,n de m2}
    m3[jm,jn]:=0;
    for jl:=1 to l do m3[jm,jn]:=
    m3[jm,jn]+(m1[jm,jl]*m2[jl,jn]);
    end;
    (* affichage du résultat *)
    writeln('résultat');
    for jm:=1 to m do for jn:=1 to n do
    writeln('m[',jm,',',jn,']=',
    m3[jm,jn])
    end.

    @I'm the god father@
    1. j voudrais savoir comment t'as fait sa