TD1 STRUCTURES CONDITIONNELLES ET REPETITIVES
Pour aider au choix, il est parfois judicieux de se poser les questions suivantes : Qu’est ce qui
est répété (quelle est la séquence) ?
– Quand est-ce qu’on arrête (ou continue) ?
Si nombre d’itérations connu Alors
Résultat <- Pour
Sinon
Si itération exécutée au moins une fois Alors
Résultat <- Répéter
Sinon
Résultat <- TantQue
FinSi
FinSi
Exercice 1 : Écrire un programme qui demande à l’utilisateur de saisir un caractère et qui affiche
« affirmatif » si le caractère est un « o » (minuscule ou majuscule), « négatif » si c’est un « n »
(minuscule ou majuscule) et « ? ! ? ! ? ! ? » dans les autres cas.
Solution :
Algorithme repondre
Variable
reponse: Caractere -- caractère lu au clavier
Début
saisir le caractère
Écrire("Votre réponse (o/n) : ")
Lire(reponse)
Selon reponse Dans
’o’, ’O’: Écrireln("Affirmatif !")
’n’, ’N’: Écrireln("Négatif !")
TD1 STRUCTURES CONDITIONNELLES ET REPETITIVES
Sinon
Écrireln("?!?!?!?")
FinSelon
Fin
Exercice 2 : Écrire un programme qui affiche la somme des n premiers entiers naturels, n étant un
entier saisi au clavier. Le programme devra proposer la possibilité à l’utilisateur de recommencer le
calcul pour un autre entier.
Var
n: Entier -- un entier saisi au clavier
s: Entier -- la somme des n premiers entiers
i: Entier -- parcourir les entiers de 1 à n
réponse: Caractère -- réponse lue au clavier
Début
Répéter
Écrire("Valeur de n = ")
Lire(n)
-- calculer la somme des n premiers entiers
s <- 0
i <- 1
TantQue i <= n Faire
s <- s + i
i <- i + 1
FinTQ
-- afficher le résultat
ÉcrireLn("La somme des entiers est : ", s)
-- Demander si l’utilisateur veut recommencer
Écrire("Encore (o/n) ? ")
Lire(réponse)
JusquÀ (réponse = ’n’) Ou (réponse = ’N’)
Fin.
TD1 STRUCTURES CONDITIONNELLES ET REPETITIVES
Exercice3 :
Un magasin de reprographie facture 2 Dt les dix premières photocopies, 1.500 Dt les vingt suivantes
et 1 Dt au-delà. Ecrivez un algorithme qui demande à l’utilisateur le nombre de photocopies
effectuées puis affiche le montant correspondant.
Solution
Algorithme Facture ;
Const P1=2 ; P2=1.5 ; P3=1 ;
Var Mont :reel ; Nbc :entier ;
Début
Ecrire(‘Donner le nombre de photocopies’) ;
Lire(Nbc) ;
Si Nbc≤10 Alors Mont←P1*Nbc
Sinon Si Nbc≤30 Alors Mont←P1*10+P2*(Nbc-10)
Sinon Mont←P1*10+P2*20+P3*(Nbc-30)
Fsi
Fsi ;
Ecrire(‘Le montant à payer est: ’,Mont) ;
Fin.
Exercice 4:
Ecrire un algorithme permettant d’afficher la saison en introduisant le numéro du mois.
Solution
Algorithme Saison;
Var M :entier ;
Début Ecrire(‘Donner un numéro de mois 1--12’) ;
Répéter Lire(M) ;
Jusqu’à (M>0 )et( M
selon M faire
3,4,5 : Ecrire(‘La saison est : PRINTEMPS’) ;
6,7,8 : Ecrire(‘La saison est : ETE’) ;
9,10,11 : Ecrire(‘La saison est : AUTOMNE’) ;
TD1 STRUCTURES CONDITIONNELLES ET REPETITIVES
12,1,2 : Ecrire(‘La saison est : HIVER’) ;
Finselon ;
Fin
Exercice 5 :
Ecrire un algorithme pour résoudre chacun des problèmes suivants :
1- Calcul de la somme des N premiers nombres entiers.
2- 2- Recherche du minimum et du maximum dans un ensemble de N nombres.
3- 3- Calcul du quotient et reste de la division de deux entiers A et B sans utiliser l’opération de
division.
4- 4- Le calcul du produit de deux entiers en utilisant uniquement l'opération d'addition '+’.
5- 5- Détermination si A est divisible par B. Avec A et B des entiers positifs.
6- 6- Déterminer tous les diviseurs d’un entier X donné.
7- 7- Déterminer si un nombre entier X est premier ou non.
8- 8- Calcule la somme des chiffres qui composent un entier naturel N.
Solutions
1- Algorithme Somme ;
Var I,N,S :entier ;
Début
Ecrire(‘Donner un entier N’) ;
Lire(N) ;
S ←0 ;
Pour I ←1 à N-1 Faire
S ←S+I; Fait ;
Ecrire(‘La somme des’, N,’ premiers nombres est: ’,S) ;
Fin.
2- Algorithme MaxMin;
Var I,N,Max,Min,X :entier ;
Début
Ecrire(‘Donner un entier N>0’) ;
Répéter Lire(N) ;
Jusqu’à N>0 ; /* Lire le premier élément, puis initialiser le Min et le Max à cette valeur
Lire(X) ;
Max←X ;
Min←X ;
Pour I ←2 à N Faire /* lire la suite des éléments et mettre à jour le Min et le Max Lire(X) ;
Si Max<X Alors Max←X
Sinon Si Min>X Min←X
Fsi
Fsi ;
finFaire ;
Ecrire(‘Le Minimun des valeurs est: ’,Min,’ le Maximum est : ‘,Max) ;
TD1 STRUCTURES CONDITIONNELLES ET REPETITIVES
Fin.
3- Algorithme QuotReste ;
Var A,B,Q,R :entier ;
Début
Ecrire(‘Donner deux entiers A et B’) ;
Lire(A,B) ;
Q ←0 ; R ←A ;
Tantque R>B Faire
Q ←Q+1; R ←R-B;
Fait ;
Ecrire(‘Le Quotient de A/B est : ’,Q, ‘ Le reste de A/Best : ‘,R) ;
Fin.
4- Algorithme Produit ; Var A,B,P,I :entier ; Début Ecrire(‘Donner deux entiers A et B’) ; Lire(A,B)
; Si A=0 ou B=0 Alors P←0 Sinon P←0 ; /*initialiser le produit à 0 Pour I ←1 à B Faire P←P+A ;
Fait Fsi ; Ecrire(‘Le produit A*B est : ’,P) ; Fin. On peut optimiser la solution en choisissant la
boucle ayant le moins d’itérations : Algorithme Produit ; Var A,B,P,I :entier ; Début
Ecrire(‘Donner deux entiers A et B’) ;
Lire(A,B) ; Si A=0 ou B=0 Alors P←0 Sinon Si A>B Alors P←A ; /*On peut initialiser le produit à
A et commencer la boucle à 2 Pour I ←2 à B Faire P←P+A ; Fait Sinon P←B ; Pour I ←2 à A
Faire P←P+B ; Fait Fsi ; Ecrire(‘Le produit A*B est : ’,P) ; Fin.
5- Algorithme AdivB; Var A,B,R :entier ; Début Ecrire(‘Donner deux entiers positifs A,B’) ;
Répéter Lire(A,B) ; Jusqu’à A>0 et B>0 ; R←A ; Tantque R≥0 Faire R ←R-B; Fait ; Si R=0Alors
Ecrire(A,’ est divisible par ‘,B) Sinon Ecrire(A,’ est n’’est pas divisible par ‘,B) Fsi ; Fin.
6- 6- Algorithme Diviseurs ; Var X,M,I :entier ; Début Ecrire(‘Donner un entier X’) ; Lire(X) ;
Ecrire(‘Les diviseurs de ‘,X,’ sont :’) ; /*On boucle de 1 à la moitié de X, car après la moitié il
n’y a plus de diviseur sauf X /*On peut utiliser la fonction division entière DIV et la fonction
reste de cette division MOD M←X DIV 2 ; Pour I ←1 à M Faire Si X MOD I=0 Alors Ecrire(I) Fsi;
Fait ;
Ecrire(X) ; Fin.
7- Algorithme Premier;
Var
X,M,I :entier ;
Pr :booléen ;
Début
Ecrire(‘Donner un entier X’) ;
Lire(X) ; /*X est premier s’il a deux diviseurs distincts 1 et lui-même, attention 1 n’est pas
premier.
Pr←Vrai ;
Si X=1 Alors
Pr←Faux
Sinon
M←X DIV 2 ;
I ←2 ;
Tantque I ≤ M et Pr Faire /*si on trouve un diviseur on arrête la boucle
Si X MOD I=0 Alors
TD1 STRUCTURES CONDITIONNELLES ET REPETITIVES
Pr←Faux
Fsi;
I ←I+1 ;
Fait
Fsi ;
Si Pr Alors
Ecrire(X,’ est premier’)
Sinon Ecrire(X,’ n’’est pas premier’)
Fsi;
Fin.
8- Algorithme SommeChiff; Var N,S,R :entier ; Début Ecrire(‘Donner un entier naturel N’) ;
Répéter Lire(N) ; Jusqu’à N≥0 ; S←0 ; R←0 ; Tantque R>0 Faire S←S+R MOD 10; R← R DIV 10;
Fait ; Ecrire(‘La somme des chiffres qui composent ’,N,’ est :’,S) ; Fin
Exercice 6 :
Ecrire un algorithme qui permet à l’utilisateur de saisir une suite caractère se terminant par ‘*’, et qui
affiche à la fin le nombre d’apparition de la lettre ‘A’.
Solution 1 : en utilisant une boucle Répéter
Algorithme Apparition ;
Var
ch :caractère ;
NbA :entier ;
Début
NbA ←0 ;
Répéter Lire(ch) ;
Si ch=’A’ Alors
NbA ←NbA+1 Fsi ;
Jusqu’à ch=’*’ ;
Ecrire(‘Nombre apparition de A est :’,NbA) ;
Fin
Solution 2 : en utilisant une boucle Tantque +Initialisation
Algorithme Appatition ;
Var ch :caractère ;
NbA :entier ;
Début
NbA ←0 ;
Ch ←’ ’ ; /* Initialiser Ch à un caractère autre que ‘*’
TD1 STRUCTURES CONDITIONNELLES ET REPETITIVES
Tanque ch<>’*’ Faire
Lire(ch) ; /* la lecture se fait avant le traitement
Si ch=’A’ Alors
NbA ←NbA+1
Fsi ; Fait ;
Ecrire(‘Nombre apparition de A est :’,NbA) ;
Fin.
Solution 3 : en utilisant une boucle Tantque + Lecture avant la boucle Algorithme Appatition ;
Var
ch :caractère ;
NbA :entier ;
Début NbA ←0 ;
Lire(ch) ; /* lecture la première valeur de ch avant la boucle
Tanque ch<>’*’ Faire
Si ch=’A’ Alors
NbA ←NbA+1
Fsi ;
Lire(ch) ; /* La lecture suivante se fait après le traitement
Fintantque ;
Ecrire(‘Nombre apparition de A est :’,NbA) ; Fin.
