Ecrire un programme pascal qui lit une matrice A, et verifie si la matrice A est une matrice symetrique c'est a dire A(i,j)=A9j,i) quelque soient les indices i et j de la matrice A.
CORRECTION
program Symetrique;
var
A: array [1..100, 1..100] of Integer;
n, m, i, j: Integer;
Symetrique: Boolean;
begin
write('Entrez le nombre de lignes de la matrice : ');
readln(n);
write('Entrez le nombre de colonnes de la matrice : ');
readln(m);
if n <> m then
begin
write('La matrice n''est pas carrée.');
exit;
end;
write('Entrez les éléments de la matrice : ');
for i := 1 to n do
for j := 1 to m do
read(A[i, j]);
Symetrique := True;
for i := 1 to n do
for j := 1 to m do
if A[i, j] <> A[j, i] then
begin
Symetrique := False;
break;
end;
if (Symetrique = True) then
write('La matrice est symétrique.')
else
write('La matrice n''est pas symétrique.');
end.
Merci, votre note vient d'être comptabilisée.
Merci, mais vous avez déjà voté pour cette page, réessayez plus tard.
Vous devez être connecté pour pouvoir voter
★★★★★
Aucune note. Soyez le premier à attribuer une note !
