Les structures de contrôle itératives
Mise
à jour le : 01/11/2004
![]()
Énoncé
Écrire un programme qui
affiche le maximum et le minimum de N entiers.
1ère Méthode : utilisation
d'une seule case pour recevoir les valeurs saisies.
2ème Méthode : utilisation d'un
Tableau
pour recevoir les valeurs saisies.
I) La préanalyse : 1ère Méthode (utilisation
d'une seule case pour recevoir les valeurs saisies)
Données : - Le nombre d'éléments est (N=6). - Les valeurs à saisir sont 17, 50, 10, 15 .
Résultats :
| Max | Min | |
|---|---|---|
|
Entier
|
|
Entier
|
La variable Max contient le maximum des valeurs saisies. La variable Min contient le minimum des valeurs saisies. Soit A une Variable utilisée pour recevoir les valeurs saisies.
| A | |
|---|---|
| ? | |
|
|
Entier
|
Étape 1 :
On initialise Max à -Maxint-1 :
|
Max
|
||
|---|---|---|
| |
|
|
|
|
|
|
Étape 2 :
On compare Max et A :
Max - 32768
A 17 Entier
|
Max
|
||
|---|---|---|
| |
||
|
|
|
|
Étape 3 :
On compare Max et A :
Max 17
A 50 Entier
|
Max
|
||
|---|---|---|
| |
|
|
|
|
|
|
Étape 4 :
On compare Max et A :
Max 50
A 10 Entier
Étape 5 :
On compare Max et A :
Max 50
A 15 Entier
2) Recherche du minimum d'un tableau :
Étape 1 :
On initialise Min à Maxint :
|
Min
|
||
|---|---|---|
| |
|
|
|
|
|
|
Étape 2 :
On compare Min et A :
Min 32767
A 17 Entier
|
Min
|
||
|---|---|---|
| |
|
|
|
|
|
|
Étape 3 :
On compare Min et A :
Min 17
A 50 Entier
Étape 4 :
On compare Min et A :
Min 17
A 10
Entier
|
Min
|
||
|---|---|---|
| |
|
|
|
|
|
|
Étape 5 :
On compare Min et A :
Max 10
A 15 Entier
Nom = MaxMin |
||
| Séquences | Liste des définitions Explicites | Objets Utilisés |
| 3
2 |
Résultat
=
Écrire(Max,Min)
Max ß
-Maxint-1 ; Min ß
Maxint |
N I AMax Min
|
III) Le tableau de déclaration des objets :
| Objets Utilisés | Nature/Type | Rôle |
| A | Variable/Entier |
Recevoir les valeurs saisies |
| I | Variable/Entier | Compteur |
| Max | Variable/Entier | Recevoir le maximum des valeurs saisies |
| Min | Variable/Entier | Recevoir le minimum des valeurs saisies |
| N | Variable/Entier | Le nombre de valeurs à saisir |
IV) L'algorithme :
| 0- | Début MaxMin |
| 1- | Répéter |
| Lire(N) | |
| Jusqu'à N>0 | |
| 2- | Max ß -Maxint-1 ; Min ß Maxint |
| Pour I de 1 A N Faire | |
| Lire(A) | |
| Si A>Max | |
| Alors | |
| Max ß A | |
| FinSi | |
| Si A<Min | |
| Alors | |
| Min ß A | |
| FinSi | |
| FinPour | |
| 3- | Écrire(Max , Min) |
| 4- | Fin MaxMin |
V) La traduction en turbo pascal :
Program MAXMIN;
uses Wincrt;
Var I, N,A,Max,Min : Integer;
Begin
Repeat
Write('N :');
Readln(N);
Until N>0;
Max := -Maxint-1 ; Min := Maxint ;
For I : = 1 To N Do
Begin
Write('A :');
Readln(A);
If A>Max
Then
Max := A;
If A<Min
Then
Min := A;
End;
Writeln('Le maximum est :', Max);
Writeln('Le minimum est :', Min);
End.
![]()
| Page d'index | Série Les structures de contrôle itératives | Haut |
Nom = MaxMin |
||
| Séquences | Liste des définitions Explicites | Objets Utilisés |
| 3 | Résultat = Écrire(Max,Min) | |
| 2 | Max,
Min : [Max<--
-Maxint ; Min<-- +Maxint] Pour I de 1 A N Faire |
|
| A = Donnée | N | |
| Si A>Max | I | |
| Alors | A | |
| Max <-- A | ||
| Sinsi | ||
| Si A<Min | ||
| Alors | ||
| Min <-- A | ||
| Sinsi | ||
| FinPour | ||
| I = Compteur | ||
| 1 | N : [ ]Répéter | |
| N = Donnée | ||
| Jusqu'à N>0 | ||
| 4 | Fin MaxMin | |
III) Le tableau de déclaration des objets :
| Objets Utilisés | Code | Type / Nature | Rôle |
| A | A | Variable/Entier |
Recevoir les valeurs saisies |
| I | I | Variable/Entier | Compteur |
| Max | Max | Variable/Entier | Recevoir le maximum des valeurs saisies |
| Min | Min | Variable/Entier | Recevoir le minimum des valeurs saisies |
| N | N | Variable/Entier | Le nombre de valeurs à saisir |
IV) L'algorithme :
| 0- | Début MaxMin |
| 1- | Répéter |
| Lire(N) | |
| Jusqu'à N>0 | |
| 2-1- | Max<-- -Maxint ; Min<-- +Maxint |
| 2-2- | Pour I de 1 A N Faire |
| Lire(A) | |
| Si A>Max | |
| Alors | |
| Max<--A | |
| FinSi | |
| Si A<Min | |
| Alors | |
| Min<--A | |
| FinSi | |
| FinPour | |
| 3- | Écrire(Max , Min) |
| 4- | Fin MaxMin |
V) La traduction en turbo pascal :
Program MAXMIN;
uses Wincrt;
Var I, N,A,Max,Min : Integer;
Begin
Repeat
Write('N :');
Readln(N);
Until N>0;
Max := -Maxint ; Min := -Maxint ;
For I : = 1 To N Do
Begin
Write('A :');
Readln(A);
If A>Max
Then
Max := A;
If A<Min
Then
Min := A;
End;
Writeln('Le maximum est :', Max);
Writeln('Le minimum est :', Min);
End.
![]()
| Page d'index | Série Les structures de contrôle itératives | Haut |