Remerciez-le!

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

Dc 3 prat correction 4si BARRAJ Prof ABDELKADER ? Ministère de l ? éducation DRE - MAHDIA LYCÉE Boumerdes Durée heure Date Mardi février DEVOIR DE CONTROLE N ? Pratique Matière Algorithmique Programmation Classe ème année S I Professeur Abdelkader BARRAJ

BARRAJ Prof ABDELKADER ? Ministère de l ? éducation DRE - MAHDIA LYCÉE Boumerdes Durée heure Date Mardi février DEVOIR DE CONTROLE N ? Pratique Matière Algorithmique Programmation Classe ème année S I Professeur Abdelkader BARRAJ Nom prénom ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Important Une solution modulaire au problème posée est exigée Enregistrer au fur et à mesure votre programme dans le dossier SI ? de l'unité C en lui donnant comme nom votre nom et prénom ? Soit M une matrice de lignes et N colonnes d ? entiers avec N compris entre et Ecrire un programme PASCAL qui réalise les t? ches suivantes ? Remplir aléatoirement la matrice M par des entiers compris entre et ? Trier les lignes de la matrice M dans l ? ordre croissant chaque ligne à part sans utiliser un tableau intermédiaire En utilisant la méthode de tri par insertion ? Fusionner avec tri les éléments des deux lignes de la matrice M dans un tableau T ? A ?cher le Tableau T après le tri Exemple N La matrice M après le tri Le tableau T CBARRAJ Prof ABDELKADER ? program devoirprat uses wincrt type mat array of integer tab array of integer var m mat t tab n integer procedure remplirmat var m mat var n integer var l c integer begin repeat write 'nombre de colonne ' readln n until n in randomize for l to do begin for c to n do begin m l c random end end end procedure triligne ins var m mat l n integer var i j tmp integer begin for i to n do begin if m l i do begin m l j m l j- j j- end m l j tmp end end end procedure fusionner m mat var t tab var i j k integer begin i j for k to n do begin if m i n then begin t k m i i i end else begin t k m j j j end end end CBARRAJ Prof ABDELKADER ? procedure a ?chem m mat n integer var l c integer begin for l to do begin for c to n do begin write m l c ' ' end writeln end end procedure a ?che t tab m integer var i integer begin for i to m do begin write t i ' ' end end begin programme principal remplirmat m n triligneins m n triligneins m n a ?che m m n fusionner m t writeln writeln a ?che t n end C