TD :5
Exercice1 : Procédure Div Mod
Objectif: Écrire une procédure qui effectue la division entière et le modulo à l'aide de soustrac-
tions successives.
Procédure DivMod (a, b, Quotient, Reste)
Quotient <- 0
Reste<-a
Tant que Reste >= b faire
Reste <- Reste - b
Quotient<-Quotient+1
Fin Tantque
Fin Procédure
Exercice2 : Compter les entiers pairs
Objectif: Lire une liste d'entiers et afficher le nombre d'entiers pairs et leur pourcentage.
Procédure Compter Pairs()
Entier nombre, compteur Pairs, compteur
Total compteur Pairs <- 0
compteur Total<-0
Répéter
Lire nombre
Si nombre≠-1 alors
Compteur Total<-compteur Total+1
Si nombre % 2 = 0 alors
compteur Pairs<-compteur Pairs+1
Fin Si
FinSi
Jusqu'à ce que nombre=-1
Si compteur Total>0alors
Pourcentage<-(compteur Pairs/compteur Total)*100
Afficher "Nombre d'entiers pairs : ", compteur Pairs
Afficher "Pourcentage d'entiers pairs : ", Pourcentage,
"%"
Sinon
Afficher "Aucun entier n'a été
saisi." Fin Si
Fin Procédure
Exercice3 : Somme des n premiers entiers
Objectif: Écrire une fonction qui calcule la somme des n premiers entiers.
Fonction Somme(n)
Retourner n*(n+1)/2
Fin Fonction
Début
Entier n
Lire n
Afficher" La somme des",n,"premiers entiers est :",Somme(n) Fin
Exercice4 : Nombre parfait
Objectif: Écrire une fonction qui détermine si un nombre est parfait et afficher les nombre spar-
faits entre 1 et 10000.
Fonction Est Parfait(n)
entier somme, i
somme <- 0
Pouride1àn/2faire Si n
% i = 0 alors
somme<-somme+i
Fin Si
Fin Pour
Retourner somme=n
Fin Fonction
Début
Pournde1à10000faire Si
Est Parfait(n) alors
Afficher n,"est un nombre parfait."
Fin Si
Fin Pour
Fin
Exercice5 : Nombre cubique
Objectif :Écrire une fonction qui détermine si un entier de trois chiffres est cubique.
Fonction Est Cubique(n)
entier somme, a, b, c
a <- n / 100
b<-(n/10)%10
c<-n% 10
somme<-a^3+b^3+c^3 Retourner
somme = n
Fin Fonction
Début
Pournde100à999faire
Si Est Cubique(n) alors
Afficher n,"est un nombre cubique."
Fin Si
Fin Pour
Fin
Exercice6 : Table de multiplication
Objectif : Afficher la table de multiplication d'un nombre entier positif.
Procédure Table Multiplication(n)
Pour i de 1 à 10 faire
Afficher n,"*",i,"=",n*i Fin
Pour
Fin Procédure
Début
Entier n
Lire n
Table Multiplication(n)
Fin
Exercice7:Répéter l'affichage de la table de
multiplication
Objectif: Afficher la table démultiplication d'un entier TantQue l'utilisateur le désire.
Début
entier n
caractère réponse
Faire
Lire n
Table Multiplication(n)
Afficher "Voulez-vous continuer?(o/O pour oui, autre pour non)"
Lire réponse
Tant que réponse='o' ou réponse='O' Fin
