Remerciez-le!

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

Exercice corrige pascal Application Permutation de variables Program permutation uses wincrt var a b c integer procedure permut var a b integer begin Permutation sans avoir recour à une troisième variable a a b b a-b a a-b end begin write 'Donner a ' read

Application Permutation de variables Program permutation uses wincrt var a b c integer procedure permut var a b integer begin Permutation sans avoir recour à une troisième variable a a b b a-b a a-b end begin write 'Donner a ' readln a write 'Donner b ' readln b c a a b b c writeln 'La nouvelle valeur de a est ' a write 'La nouvelle valeur de b est ' b end Index Application Program calculaire uses wincrt Const pi var r c shachuree striangle scercle real begin write 'donner le rayon du cercle ' read r write 'donner le côté du triangle ' read c s cercle pi SQR r Cstriangle SQRT SQR c shachuree scercle - striangle write 'l''aire de la surface hachurée est ' shachuree end Index Application CH Ex page - Sc - Changer la casse des caractères d'une chaine conversion d'un caractère miniscul en majuscul program minmaj uses wincrt var ch maj string i integer begin writeln 'Donner une chaine ' readln ch maj '' for i to length ch do if ch i in 'a' 'z' then maj maj Chr Ord ch i - else maj maj ch i write 'Aprés changement de la casse ' maj end Index Application Sc Rappel Type énuméré et vecteur - Paye de la semaine calcul de la paye d'un ouvrier et création d'un type énuméré jours création d'un type interval joursdetravail program payesemaine uses wincrt Type jours dimanche lundi mardi mercredi jeudi vendredi samedi joursdetravail lundi vendredi thorairesemaine array joursdetravail of integer var t thorairesemaine j joursde travail Ctotal integer ps thp real begin for j lundi to vendredi do begin writeln 'Entrez le nombre d''heure du jour ' ord j ' ' readln t j total t j total end writeLN 'Précisez la valeur du taux horaire ' readln thp PS total thp write 'La paye de la semaine est ' PS ' DT' end Index Application calcul de l'inverse d'un entier à chi ?res CH Les actions élémentaires simples Program inverse uses wincrt var n m integer begin write 'Donner un entier ' readln n m n div n mod write 'L''inverse est ' m end Index Application Structure de contrôle conditionnelle simple - forme réduite program recherche uses wincrt var c char ch msg string begin readln c readln ch msg 'Le caractère n''existe pas' if pos c ch then msg 'Le caractère existe ' write msg end CIndex Application version Saisir une cha? ne de caractère et véri ?er si elle est composée de plusieurs mots version program phrase uses wincrt var ch string begin writeln 'Donner une cha? ne ' readln ch if POS ' ' ch then writeln 'Votre cha? ne est composée d''un seul mot ' else writeln 'Votre cha? ne est composée de plusieurs mots ' end Index Application version structure de contrôle conditionnelle forme généralisée program phrase uses wincrt var ch string procedure e ?aceespdeb var ch string begin while ch ' ' and length ch