Corrigé TD N°3
Exercice N°2 :
ALGORITHME SommeEntier
VAR
P,S,i,N,x :Entier
DEBUT
REPETER
ECRIRE("Donner Le nombre de valeurs")
LIRE(N)
JUSQU’A (N>0)
S 0,P 1
POUR i de 1 à N FAIRE
REPETER
ECRIRE ("Donnez un entier ")
LIRE(x)
JUSQU’A(x <> 0)
S S+x
P P*x
FIN POUR
ECRIRE ("La somme des ", N ," entiers est : ",S,"Le produit
est ",P)
FIN
Exercice N°3 :
ALGORITHME Factorielle
VAR
N,Fact, i :entier
DEBUT
REPETER
ECRIRE("Donner une entier")
LIRE(N)
JUSQU’A (N>=0)
Fact 1
POUR i de 1 à N FAIRE
Fact Fact * i
FIN POUR
ECRIRE (N,"!=",Fact)
FIN
Exercice N°4 :
/*Remarque : les nombres cubiques sont : 153, 370, 371 et 407*/
ALGORITHME cubique
VAR
S,a,Q:entier
DEBUT
repeter
ECRIRE ("donner un entier")
LIRE(a)
Jusqu’à(a>=0)
1
S0
Qa
TANT QUE (Q <> 0) Faire
S S+(Q MOD 10)^3
Q Q DIV 10
FIN TQ
SI (S=a)ALORS
ECRIRE (a,"est cubique")
SINON
ECRIRE (a,"n'est pas cubique")
FIN SI
FIN
Exercice N°5:
ALGORITHME cubique
VAR
v1,v2,s,a,Q:entier
DEBUT
REPETER
ECRIRE ("donner un 1er entier")
LIRE(V1)
JUSQU’A(v1>=0)
REPETER
ECRIRE ("donner un 2ème entier")
LIRE(v2)
JUSQU’A(v2>v1)
Ecrire("les valeurs cubiques sont :")
POUR a de v1 à v2 FAIRE
S0, Q a
TANQUE (Q<>0)faire
SS+(Q MOD 10)^3)
QQ DIV 10
FIN TQ
Si(S=a) Alors
Ecrire(a)
Fin Si
FIN POUR
FIN
Exercice N°6:
ALGORITHME Moy_Etud
CONST
Coef1=0,4
Coef2=0,6
VAR
MoyE,S,devoir,examen :réel
i : entier
DEBUT
S 0
POUR i de 1 à 10 FAIRE
REPETER
ECRIRE("Donner Note de devoir Num ",i)
LIRE(devoir)
2
JUSQU’A (devoir >=0 ET devoir<=20)
REPETER
ECRIRE("Donner Note examen Num ",i)
LIRE(examen)
JUSQU’A (examen >=0 ET examen<=20)
S S+(Coef1*devoir +Coef2*examen)
FIN POUR
MoyE S/10
ECRIRE ("La Moyenne est ",MoyE)
FIN
Exercice N°7:
ALGORITHME Moy_Classe
CONST
Coef1=0,4
Coef2=0,6
VAR
MoyE,S,devoir,examen :réel
Sclasse,MoyMax, MoyMin:réel
i,j,N,NbEtud : entier
//N : nb d’etudiant, NbEtud : nb etudiant dont moy>=10
//i : compteur des etudiants, j : compteur des matières
DEBUT
REPETER
ECRIRE("Donner Le nombre d’étudiants ")
LIRE(N)
JUSQU’A (N >0)
NbEtud 0
Sclasse 0
MoyMax 0
MoyMin 20
POUR i de 1 à N FAIRE //boucle des etudiants
S 0
POUR j de 1 à 10 FAIRE //boucle des matieres
REPETER
ECRIRE("Donner Note de devoir Num ",j)
LIRE(devoir)
JUSQU’A (devoir >=0 ET devoir<=20)
REPETER
ECRIRE("Donner Note examen Num ",j)
LIRE(examen)
JUSQU’A (examen >=0 ET examen<=20)
S S+(Coef1*devoir +Coef2*examen)
FIN POUR
MoyE S/10
ECRIRE("La moyenne de l’étudiant Num ",i," est ", MoyE)
Sclasse Sclasse+MoyE
SI (MoyE>=10) ALORS
NbEtud NbEtud +1
3
FIN SI
SI (MoyE > MoyMax) ALORS
MoyMax MoyE
FIN SI
SI (MoyE < MoyMin) ALORS
MoyMin MoyE
FIN SI
FIN POUR
ECRIRE("La moyenne de la classe est ", Sclasse/N)
ECRIRE("La plus grande moyenne est ", MoyMax)
ECRIRE("La plus petite moyenne est ", MoyMin)
ECRIRE("Le nombre d’etudiants qui ont reussi ", NbEtud)
FIN