![]() |
![]() |
![]() |
Les structures Conditionnelles
Mise à jour le : 01/11/2004
Énoncé
Écrire un programme Pascal qui affiche le maximum et le
minimum de deux entiers .
I) La préanalyse :
II) L'analyse :
Nom = Max_Min |
||
| Séquences | Liste des définitions Explicites | Objets Utilisés |
| 4 | Résultat = Ecrire(Max,Min) |
A |
| 3 | Max,Min = Si A > = B |
B |
| Alors | Max | |
Max ß
|
Min | |
Min ß
|
||
Sinon |
||
Max ß
|
||
Min
ß
|
||
FinSi |
||
| 1 |
Lire (A) |
|
| 2 |
Lire (B) |
|
| 5 | Fin Max_Min | |
| Objets Utilisés | Nature / Type | Rôle |
| A | variable / Entier | Recevoir la 1ère donnée |
| B | variable / Entier | Recevoir la 2ème donnée |
| Max | variable / Entier | Recevoir le maximum de deux valeurs |
| Min | variable / Entier |
Recevoir le minimum de deux valeurs |
IV) L'algorithme :
| 0- | Début Max_Min |
| 1- |
Lire (A) |
| 2- |
Lire (B) |
| 3- |
Si A >= B |
Alors |
|
Max
ß
|
|
Min ß
|
|
Sinon |
|
Max
ß
|
|
Min ß
|
|
FinSi |
|
| 4- |
Ecrire(Max,Min) |
| 5- | Fin Max_Min |
V) La traduction en turbo pascal :
Program Max_Min;
uses Wincrt;
Var A, B, Max, Min : Integer;
Begin
Write('A=');
Readln(A);
Write('B=');
Readln(B);
If A >= B
Then
Begin
Max := A;
Min := B;
End
Else
Begin
Max := B;
Min := A;
End;
Writeln('Le maximum est : ', Max);
Writeln('Le minimum est : ', Min);
End.
V) La traduction en langage C++ :
| Page d'index | Série structures conditionnelles | Haut |