Bonjour, je dois faire un programme qui permet de multiplier 2 matrice entre elle le problème est que je n'arrive même pas à en afficher une, est ce que vous pouvez me dire ce qui ne ve pas

const dim=10;
var nl,nc,nc2,i,j : integer;
mat1: array [1..10,1..10] of real;
rep:char;

begin
repeat

writeln('Entrez le nombre de lignes de la matrice 1');
readln(nl);
writeln(' Entrez le nombre de colonnes de la matrice 1');
readln(nc);
writeln(' Entrez le nombre de colonnes de la matrice 2');
readln(nc2);

i:=1;
j:=1;
for i:=1to nl do
for j:=1 to nc do

begin
writeln('Entrez ligne ',i,' colonne ',j);
read(mat1[i,j]);

end;
for j:=1 to nc do for i:=1 to nl do
begin

write (mat1[i,j]:8);
end;
writeln('Voulez vous continuer? o/n');
readln(rep);
until rep='n';
end.

je ne me souvient plus trop comment fonctionne la fonction write (arf c'est loin le deug...) mais il te manque tres certainement un retour a la ligne a la fin de chaque ligne de ta matrice.

Tu dois avoir toutes tes valeurs qui s'affichent les unes a la suite des autres.

for j:=1 to nc do
begin
...for i:=1 to nl do
...begin
...write (mat1[i,j]:8);
...end;
writeln();
end;

oui c'est exactement ça, la matrice s'écrit sur une ligne, j'avais déjà essayé ta proposition mais ça ne fonctionne pas non plus

je pense qu'il faut quelque chose du genre

for j:=1 to nc do
i:=1
write()

for j:=1 to nc do
i:=2
write()

et ainsi de suite mais je ne sais pas comment exprimer cela

Le gros problème vient du fait que tu dises que ca ne fonctionne pas.. et qu'on ne sa

Le gros problème vient du fait que tu dises que ca ne fonctionne pas.. et qu'on ne sache pas ce que tu obtiens commme résultat !

La soluce de guyver est bonne, le problème doit venir d'ailleurs : type des variables, initialisation...

je l'ai dis ce qui ne va pas c'est que ca affiche la matrice sur une ligne par exemple : 1 2 3 4 a la place de

1 2
3 4

la solution que je t'ai donnée devrai resoudre ce probleme justement.

donne ton code complet car si tu fait comme je t'ai dis et que tu as tjs tous les elements sur une ligne doit y avoir une merdouille qq part

j'ai essayé d'une autre facon mais ca ne marche toujours pas

program CARNA107 ;
uses crt;
const dim=10;
var nl,nc,nc2,i,j,k : integer;
mat1,mat2,mat3: array [0..dim,0..dim] of integer;
rep,conf:char;

begin
repeat
clrscr;
writeln('Entrez le nombre de lignes de la matrice 1');
readln(nl);
writeln(' Entrez le nombre de colonnes de la matrice 1');
readln(nc);
writeln(' Entrez le nombre de colonnes de la matrice 2');
readln(nc2);

repeat
begin
writeln ('Entree de la matrice 1');
writeln(' ');
for i:=1to nl do
for j:=1 to nc do
begin
writeln('Entrez ligne ',i,' colonne ',j);
readln(mat1[i,j]);
end;

i:=0;
repeat
i:=i+1;
for j:=1 to nc do
write (mat1[i,j]:8);
until (i=nl);

writeln(' ');
writeln ('Est ce la bonne matrice ? (o/n)');
readln (conf);
end;
until (conf ='O') or (conf = 'o');

repeat
begin
writeln('Entree de la matrice 2');
writeln(' ');
for j:=1 to nc do
for k:=1 to nc2 do
begin
writeln('Entrez ligne ',j,' colonne ',k);
readln(mat2[j,k]);
end;

j:=0;
repeat
j:=j+1;
for k:=1 to nc2 do
write(mat2[j,k]:8);
until (j=nc);
writeln(' ');
writeln ('Est ce la bonne matrice ? (o/n)');
readln (conf);
end;
until (conf ='O') or (conf = 'o');
writeln('Voulez vous recommencer? (o/n) ?');
readln(rep);
until (rep='n') or (rep='N')
end.

voila

voila le programme fonctionne

program carna107;
uses crt;
const dim=10;
var
mat1,mat2,mat3:array[0..dim,0..dim] of integer;
nl,nc,nc2,i,j,k:integer;
rep:char;
conf:char;
begin
repeat
clrscr;
writeln('Entrez le nombre de lignes de la matrice 1');
readln(nl);
writeln('Entrez le nombre de colonnes de la matrice 1');
readln(nc);
writeln('Entrez le nombre de colonnes de la matrice 2');
readln(nc2);

repeat
begin
writeln('Entree de la matrice 1');
writeln(' ');
for i:=1 to nl do
for j:=1 to nc do
begin
writeln('Entrez ligne ',i,' colonne ',j);
readln(mat1[i,j]);
end;
i:=0;
repeat
i:=i+1;
for j:=1 to nc do
write(mat1[i,j]:3);
writeln(' ');
until (i=nl);
writeln(' ');
writeln('Est ce la bonne matrice ? (O/N)');
readln(conf);
end;
until (conf='O') or (conf='o');

repeat
begin
writeln('Entree de la matrice 2');
writeln(' ');
for j:=1 to nc do
for k:=1 to nc2 do
begin
writeln('Entrez ligne ',j,' colonne',k);
readln(mat2[j,k]);
end;
j:=0;
repeat
j:=j+1;
for k:=1 to nc2 do
write(mat1[j,k]:3);
writeln(' ');
until (j=nc);

writeln(' ');
writeln('Est ce la bonne matrice ? (O/N)');
readln(conf);
end;
until (conf='O') or (conf='o');

begin
for i:=1 to nl do
for k:=1 to nc2 do
for j:=1 to nc do

mat3[i,k]:=mat3[i,k]+(mat1[i,j]*mat2[j,k]);
end;

writeln('Resultat');

for i:=1 to nl do
begin
for k:=1 to nc2 do
write(mat3[i,k]:3);
writeln(' ');
end;

writeln('Voulez vous recommencer ?(O/N)');
readln(rep);
until (rep='n') or (rep='N')
end.

mais je ne comprend pas pourquoi la méthode que j'utilise sur le poste au dessus fonctionne ici et pas dans celui d'avant et pourquoi il fonctionne pour les matrice 1 et 2 et pas pour la 3 contrairement a la méthode de guyver2 qui elle fonctionne pour la matrice 3