Exercices sur les matrices [Résolu/Fermé]

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

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@
47
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 56898 internautes nous ont dit merci ce mois-ci

Messages postés
4
Date d'inscription
samedi 3 mars 2007
Statut
Membre
Dernière intervention
6 mars 2007

merci
j voudrais savoir comment t'as fait sa

salut moi je suis un etudiant (1ere année LMD Sciences et TECHNIQUE) je veus des exercices corrigé sur les applicaton léniairre et les matrices .


Merci.
salut BENMOKHTARI comment va tu,je suis un etudiant ( LMD-mathematique et informatique) pour voire des exercices sur les applicaton léniairre et les matrices .
c'est pourtant bien de visite le site internet "bibmath.net" .aurevoire
soient deux matrices a(n.m)et b(n.m) écrire un algorithme permettant de realiser la multiplication de ces deux matrices a et b . l'opération de multiplication de a par b est telle qu'un élément de la matrice prodiuit fait intervenir la somme des produits des élémentsde la ligne i de a et de lla colonne b.soit:
c[i,j]=somme a[i,j]*b{k,j]
donnez la solution de ce exercice en pascel (matrice)
un site de developpement
www.developpez.com ca apres verifier dans le site de commentcamarche biensur
slt moi j voudrais savoir comment on met à nul tous les éléments diagonaux d'une matrice.
merci d'avance.
Salut,

Regarde dans la F.A.Q Matrices
je cherche a calculer deux matrice en fortran et pour cela il faut demander l'utulisateur de entrer les valeurs des deux matrices et le role de ce programme et de clcules leur produit
g besoin de progame de transposer d'une matrice en pascal

bonjour IMENE vous étes demander un programme de transpose d'une matrice en pascal

Program Transpose;

var i,j,a,b : integer;
Tab : array [1..20 , 1..20] of integer;
Tab2 : array [1..20 , 1..20] of integer;
begin
writeln(' Colonnes ? ');
readln(a);
writeln(' lignes ? ' );
readln(b);

for i:= 1 to a do
begin
for j:=1 to b do
begin
writeln( ' Donner les valeurs ', i, ' ' ,j, ' de votre matrice ');
read(Tab[i,j]);
end;
end;

for i:=1 to b do
begin
for i:=1 to a do
Tab2[i,j] := Tab[j,i];
end;

for i:=1 to b do
begin
for j:=1 to a do
write(' la transposée de votre matrice est ==>',Tab2[i,j]);
readln;
end;
end.
a bientot zak/2008
> khiter-zakaria
merci bien zakaria pr le program c riche de bcp d'informations surtt pr les universitaires en 1er années ST et j'esper bien q tu restera donné les informations pr les gens ki aime apprendre.et je veux savoir cmt je peux bien comprendre le program pascal psq c defficile 1 pe de crier 1 program quelconq
et merci pr tt
salut je suis djamel etudiant universitaire je veux des quelque cours pour bien comprendre traduire un exercice dans le turbo pascal, les boucles , les tablaux ,etc .
et merci pour votre aide
Salut,

Voici les cours gratuits en Français sur le langage Pascal. Si tu as des questions tu peu aussi commencer par chercher dans la F.A.Q Pascal
> Saba
merci pour sa
salut jai 1 exercices 1 peux compliqué sur les matrices esqe vs pouvez maider a trouver la solution svp merci davences
a votre services ,tu peut me le donne votre exercice et j'ai voir la possibilitie de le resoudre
Je voudrais savoir comment on met à nul tous les éléments diagonaux d'une matrice.
salut zakaria merci j'ai lu votre fichier

slt je m'appel fouad
j'ai cherche les exercices de pascal sur les matrices en tos les opérations

Salut FOUAD "what up !",donner moi qu'est-ce-qu'on les operations qui vous voullez exatement voire sur les matrices,
et pour une milleure manupilation sur les matrices visiter le site (developpez.com) puis (autres) puis (pascal)
ecrir un programme qui lit la matrice 10 * 10
et l'ordre de chaque ligne par ordre croissant
transposée ameliorée:
Program Transpose;

var i,j,a,b : integer;
Tab : array [1..20 , 1..20] of integer;
Tab2 : array [1..20 , 1..20] of integer;
begin
writeln(' Colonnes ? ');
readln(a);
writeln(' lignes ? ' );
readln(b);

for i:= 1 to a do
begin
for j:=1 to b do
begin
writeln( ' Donner les valeurs ', i, ' ' ,j, ' de votre matrice ');
read(Tab[i,j]);
end;
end;

for i:=1 to b do
begin
for i:=1 to a do
Tab2[i,j] := Tab[j,i];
end;
write(' la transposée de votre matrice est:');writeln;writeln;
for i:=1 to b do
begin
for j:=1 to a do
write(Tab2[i,j],' ');
readln;readln;
end;
end.
slt " karma4400" merci pour votre amelioration de la transpose, voila mon dernier programme

program trs_mat;
uses crt;
label s,z;
const L=5;C=5;
type tabl1 =array[1..L,1..C]of integer;
tabl2 =array[1..C,1..L]of integer;

var a : tabl1;b : tabl2;
i,j,cl,ln,k:integer;

begin s:clrscr;textcolor(10);
gotoxy(08,03);write('DONNER LA TAILLE DE LA MATRICE ; INTERVALE [1..5,1..5]');
gotoxy(08,05);write('LIGNES : ');readln(cl);
gotoxy(20,05);write('COLONNES : '); readln(ln);
textcolor(12);
gotoxy(08,07);write('CHARGEMENT DE LA MATRICE');
gotoxy(42,07);write('TRANSPOSE DE LA MATRICE');
textcolor(11);for i:=1 to cl do for j:=1 to ln do
begin gotoxy(10+j+(2*j),07+i+(2*i));readln(a[i,j]);end;
for i:=1 to cl do for j:=1 to ln do
begin b[j,i]:=a[i,j]end;
textcolor(11);for i:=1 to ln do for j:=1 to cl do
begin gotoxy(45+j+(2*j),07+i+(2*i));writeln(b[i,j]);end;
textcolor(12);
gotoxy(08,24);write('PRESS 1 TO REPEAT OR PRESS 0 TO EXIT : ');
readln(k);if k=1 then goto s else goto z;
readln;
z:end.

par z++/ 2009