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
Afficher la suite

14 réponses

Réponse 1 / 14

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

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

CCM 56898 internautes nous ont dit merci ce mois-ci

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

j voudrais savoir comment t'as fait sa
Réponse 2 / 14

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.
Signaler

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
Réponse 3 / 14

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]
Signaler

donnez la solution de ce exercice en pascel (matrice)
Réponse 4 / 14

un site de developpement
www.developpez.com ca apres verifier dans le site de commentcamarche biensur
Réponse 5 / 14

slt moi j voudrais savoir comment on met à nul tous les éléments diagonaux d'une matrice.
merci d'avance.
Signaler

Salut,

Regarde dans la F.A.Q Matrices
Réponse 6 / 14

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
Réponse 7 / 14

g besoin de progame de transposer d'une matrice en pascal
Signaler

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
Signaler
> 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
Réponse 8 / 14

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
Signaler

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
Signaler
> Saba
merci pour sa
Réponse 9 / 14

salut jai 1 exercices 1 peux compliqué sur les matrices esqe vs pouvez maider a trouver la solution svp merci davences
Signaler

a votre services ,tu peut me le donne votre exercice et j'ai voir la possibilitie de le resoudre
Réponse 10 / 14

Je voudrais savoir comment on met à nul tous les éléments diagonaux d'une matrice.
Réponse 11 / 14

salut zakaria merci j'ai lu votre fichier
Réponse 12 / 14

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

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)
Réponse 13 / 14

ecrir un programme qui lit la matrice 10 * 10
et l'ordre de chaque ligne par ordre croissant
Réponse 14 / 14

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.
Signaler

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
Posez votre question