A voir également:
- Exercice matrice corrigé pascal
- Algorithme matrice exercice corrigé - Meilleures réponses
- Exercice corrigé algorithme matrice pdf - Meilleures réponses
- Exercices sur les matrices ✓ - Forum - Programmation
- Matrice en Pascal - Forum - Pascal
- Les matrices et pascal - Forum - Pascal
- Le carré magique : la matrice sous turbo pascal - Forum - Windows
- Exercice algorithme triangle pascal corrigé ✓ - Forum - Algorithmes / Méthodes
14 réponses
fofall
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@
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@
Signaler
geronimo_2007
- Messages postés
- 4
- Date d'inscription
- samedi 3 mars 2007
- Statut
- Membre
- Dernière intervention
- 6 mars 2007
merci
Signaler
momo
j voudrais savoir comment t'as fait sa
BENMOKHTARI
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.
Merci.
metalismail
un site de developpement
www.developpez.com ca apres verifier dans le site de commentcamarche biensur
www.developpez.com ca apres verifier dans le site de commentcamarche biensur
maria
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]
c[i,j]=somme a[i,j]*b{k,j]
mina
slt moi j voudrais savoir comment on met à nul tous les éléments diagonaux d'une matrice.
merci d'avance.
merci d'avance.
yassine
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
khiter-zakaria
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
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
wiwi
>
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
et merci pr tt
boumdj2007
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
et merci pour votre aide
Saba
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
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
yoss
salut jai 1 exercices 1 peux compliqué sur les matrices esqe vs pouvez maider a trouver la solution svp merci davences
foufou_2_535
slt je m'appel fouad
j'ai cherche les exercices de pascal sur les matrices en tos les opérations
j'ai cherche les exercices de pascal sur les matrices en tos les opérations
karma4400
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.
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.
khiter z++
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
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