Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Exercices matrice corrige 1

Matrice Exercice Soit la matrice carrée M suivante program ex uses wincrt type mat array of integer var m mat n i j integer Somme de à j function somme m mat i j integer integer var s k integer begin s for k to j do s s m i k somme s end Remplissage MATRICE procedure remplir var m mat n integer begin les elts de ligne sont à for J to n do m j for i to n do for j to n-i do if j then m i j else m i j somme m i- j a ?chage de la matrice procedure a ?che m mat n integer begin for i to n do begin for j to n do if j n-i then write m i j else write ' ' writeln end end pp begin repeat write 'Saisir N ' readln n until n in remplir m n a ?che m n end JANVIER Cend Exercice Program ex uses wincrt type mat array of integer var m mat n i j integer A P A ?chage procedure a ?che m mat n integer begin for i to n do begin for j to n do if m i j then write ' ' else write m i j writeln end end procedure remplir var m mat n integer begin for i to n do for j n-i to n do if j n or j n-i then m i j else if i and m i- j and m i j- then m i j else m i j m i n- i m i j- m i- j end compléter pp begin repeat write 'Saisir N ' readln n until n in remplir m n a ?che m n end JANVIER CExercice On désire remplir une matrice M carré de Pour N taille n x n n est un entier donné ? par les éléments de deux triangles de pascal ? Le premier triangle en gris Triangle de M Pascal vu en cour ? Le deuxième triangle en blanc Triangle de Pascal mis à l ? envers program ex uses wincrt type mat array of integer var m mat n i j integer Remplissage triangle haut procedure remplir var m mat n integer begin for i to n do for j to i do if j or j i then m i j else m i j m i- j m i- j- end Remplissage triangle bas procedure remplir var m mat n integer begin for i n downto do for j n downto i do if j n or j i then m i j else m i j m i j m i j end a ?chage matrice procedure a ?che m mat n integer begin for i to n do begin for j to n do write m i j writeln end end pp begin repeat write 'saisir N ' readln n until n in remplir m n