Correction Des Applications Du Chapitre 2
Correction Des Applications Du Chapitre 2
Correction Des Applications Du Chapitre 2
Application page 2
Enoncé :
Ecrire un algorithme qui permet de saisir un nombre de secondes et de le convertir en nombre
d'heures, minutes et secondes.
Correction :
Algorithme Conversion
Variable
h,m,s,temps :entier
Début
écrire("donner un nombre de secondes à convertir ")
lire(temps)
htemps DIV 3600
m(temps MOD 3600)DIV 60
s(temps MOD 3600)MOD 60
écrire(temps," seconds = ",h, " heures, ",m, " minutes et ",s," secondes ")
Fin
Application page 5
Enoncé :
Ecrire un algorithme qui permet de lire un entier dans une variable NB et de déterminer sa
parité.
Correction :
Algorithme parité
Variable
NB:entier
Début
écrire("donner un entier")
lire(NB)
si NB MOD 2 ==0 alors
écrire(NB, "est pair")
sinon
écrire(NB, "est impair ")
1
finsi
Fin
Application page 6
Enoncé :
Correction :
Algorithme Maximum
Variable
a,b : entier
Début
lire (a,b)
si a>b alors
sinon
si b>a alors
sinon
finsi
finsi
Fin
Application page 7
Enoncé
Ecrire un algorithme qui permet de calculer la somme des entiers positifs pairs inférieurs à dix
avec deux méthodes.
Correction Méthode 1
2
Algorithme somme_paire_1
Variable
s,i : entier
Début
s0
pour i de 1 à 9 faire
si i MOD 2==0 alors
ss+i
finsi
fin pour
écrire("la somme = ",s)
Fin
Correction Méthode 2
Algorithme somme_paire_2
Variable
s,i : entier
Début
s0
pour i de 2 à 9 par 2 faire
ss+i
fin pour
écrire("la somme = ",s)
Fin
Application 1 page 8
Enoncé
Ecrire un algorithme qui permet de saisir un caractère alphabétique.
Correction
Algorithme saisie_caractère
Variable
ch : caractère
Début
3
répéter
écrire("donner un caractère ")
lire(ch)
jusqu’à ( (ch>=’A’ ET ch<=’Z’) OU (ch>=’a’ ET ch<=’z’))
Fin
Application 2 page 8
Enoncé
En utilisant une boucle tant que, écrire un algorithme qui permet de saisir un caractère
alphabétique.
Correction
Algorithme saisie_caractère
Variable
ch : caractère
Début
écrire("donner un caractère ")
lire(ch)
tant que ( (ch<’A’ OU ch>’Z’) ET (ch<’a’ OU ch>’z’))
écrire("donner un caractère ")
lire(ch)
fin tant que
Fin