![]() |
![]() |
![]() |
Les structures Conditionnelles
Mise à jour le : 01/11/2004
Énoncé
Écrire un programme Pascal qui lit l’ordre de mois
et affiche le nom du mois
correspondant.
Exemple : le mois 1 càd janvier
I) La préanalyse :
II) L'analyse :
Nom = Nom_mois |
||
| Séquences | Liste des définitions Explicites | Objets Utilisés |
| Résultat = | ||
| 2 | Si M=1 |
|
| Alors Ecrire("Janvier") | ||
| Sinon | M | |
Si M=2 |
||
| Alors Ecrire("Février") | ||
| Sinon | ||
Si M=3 |
||
| Alors Ecrire("Mars") | ||
| Sinon | ||
Si M=4 |
||
| Alors Ecrire("Avril") | ||
| Sinon | ||
Si M=5 |
||
| Alors Ecrire("Mai") | ||
| Sinon | ||
Si M=6 |
||
| Alors Ecrire("Juin") | ||
| Sinon | ||
Si M=7 |
||
| Alors Ecrire("Juillet") | ||
| Sinon | ||
Si M=8 |
||
| Alors Ecrire("Août") | ||
| Sinon | ||
Si M=9 |
||
| Alors Ecrire("Séptembre") | ||
| Sinon | ||
Si M=10 |
||
| Alors Ecrire("Octobre") | ||
| Sinon | ||
Si M=11 |
||
| Alors Ecrire("Novembre") | ||
| Sinon Ecrire("Décembre") | ||
| Finsi | ||
| FinSi | ||
| Finsi | ||
| Finsi | ||
| FinSi | ||
| Finsi | ||
| Finsi | ||
| FinSi | ||
| Finsi | ||
| Finsi | ||
| FinSi | ||
| 1 | Répéter | |
| Lire(M) | ||
| Jusqu'à (M>=1) et (M<=12) | ||
| 3 | Fin Nom_mois | |
| Objets Utilisés | Nature / Type | Rôle |
| M | variable / Entier | L'ordre du mois |
IV) L'algorithme :
| 0- | Début Nom_mois |
| 1- | Répéter |
| Lire(M) | |
| Jusqu'à (M>=1) et (M<=12) | |
| 2- | Si M=1 |
| Alors Ecrire("Janvier") | |
| Sinon | |
Si M=2 |
|
| Alors Ecrire("Février") | |
| Sinon | |
Si M=3 |
|
| Alors Ecrire("Mars") | |
| Sinon | |
Si M=4 |
|
| Alors Ecrire("Avril") | |
| Sinon | |
Si M=5 |
|
| Alors Ecrire("Mai") | |
| Sinon | |
Si M=6 |
|
| Alors Ecrire("Juin") | |
| Sinon | |
Si M=7 |
|
| Alors Ecrire("Juillet") | |
| Sinon | |
Si M=8 |
|
| Alors Ecrire("Août") | |
| Sinon | |
Si M=9 |
|
| Alors Ecrire("Séptembre") | |
| Sinon | |
Si M=10 |
|
| Alors Ecrire("Octobre") | |
| Sinon | |
Si M=11 |
|
| Alors Ecrire("Novembre") | |
| Sinon Ecrire("Décembre") | |
| Finsi | |
| FinSi | |
| Finsi | |
| Finsi | |
| FinSi | |
| Finsi | |
| Finsi | |
| FinSi | |
| Finsi | |
| Finsi | |
| FinSi | |
| 3- | Fin Nom_mois |
V) La traduction en turbo pascal :
Program Nom_mois;
uses Wincrt;
Var M : Integer;
Begin
Repeat
Write('L''ordre du mois :');
Readln(M);
Until (M>=1) And (M<=12);
Then Write('Janvier')
Else
Then Write('Février')
Else
Then Write('Mars')
Else
Then Write('Avril')
Else
Then Write('Mai')
Else
Then Write('Juin')
Else
Then Write('Juillet')
Else
Then Write('Août')
Else
Then Write('Séptembre')
Else
Then Write('Octobre')
Else
Then Write('Novembre')
Else Write('Décembre');
End.
V) La traduction en langage C++ :
| Page d'index | Série structures conditionnelles | Haut |