Exercices sur les matrices

Résolu/Fermé
geronimo_2007
Messages postés
4
Date d'inscription
samedi 3 mars 2007
Statut
Membre
Dernière intervention
6 mars 2007
- Modifié le 16 mai 2008 à 21:39
 Med - 24 mai 2010 à 15:52
est ce que quelqu'un parmi vous possede des exercices resolus sur les matrices en pascal??? svp si quelqu'un les possede les
A voir également:

14 réponses

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@
48
geronimo_2007
Messages postés
4
Date d'inscription
samedi 3 mars 2007
Statut
Membre
Dernière intervention
6 mars 2007

5 mars 2007 à 17:16
merci
0
j voudrais savoir comment t'as fait sa
0