![]() |
![]() |
![]() |
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 | SELON M FAIRE |
|
| 1 : Ecrire("Janvier") | ||
| 2 : Ecrire("Février") | M | |
| 3 : Ecrire("Mars") | ||
| 4 : Ecrire("Avril") | ||
| 5 : Ecrire("Mai") | ||
| 6 : Ecrire("Juin") | ||
| 7 : Ecrire("Juillet") | ||
| 8 : Ecrire("Août") | ||
| 9 : Ecrire("Septembre") | ||
| 10 : Ecrire("Octobre") | ||
| 11 : Ecrire("Novembre") | ||
| SINON Ecrire("Décembre") | ||
| 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- | SELON M FAIRE |
| 1 : Ecrire("Janvier") | |
| 2 : Ecrire("Février") | |
| 3 : Ecrire("Mars") | |
| 4 : Ecrire("Avril") | |
| 5 : Ecrire("Mai") | |
| 6 : Ecrire("Juin") | |
| 7 : Ecrire("Juillet") | |
| 8 : Ecrire("Août") | |
| 9 : Ecrire("Septembre") | |
| 10 : Ecrire("Octobre") | |
| 11 : Ecrire("Novembre") | |
| SINON Ecrire("Décembre") | |
| 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);
1 : Write('Janvier');
2 : Write('Février');
3 : Write('Mars');
4 : Write('Avril');
5 : Write('Mai');
6 : Write('Juin');
7 : Write('Juillet');
8 : Write('Août');
9 : Write('Septembre');
10 : Write('Octobre');
11 : Write('Novembre');
ELSE
Write('Décembre")
V) La traduction en langage C++ :
| Page d'index | Série structures conditionnelles | Haut |