![]() |
![]() |
![]() |
Les structures Simples
Mise à jour le : 01/11/2004
Énoncé
Écrire un programme Pascal qui permute trois
valeurs.
Méthode 1 : avec utilisation d'une variable auxiliaire.
Méthode 2 : sans utilisation d'une variable auxiliaire.
Méthode 1
I) La préanalyse de la méthode 1 :
Exemple : Avant permutation : A=5 ; B=6 ; C=7 après permutation : A=7 ; B=5 ; C=6
II) L'analyse :
Nom = Permut |
||
| Séquences | Liste des définitions Explicites | Objets Utilisés |
| 8 | Résultat = Écrire(A, B, C) | A |
| 7 | A ß Aux | B |
| 4 | Aux ß C | C |
| 3 | C = Donnée | Aux |
| 6 | B ß A | |
| 1 | A = Donnée | |
| 5 | C ß B | |
| 2 | B = Donnée | |
| 9 | Fin Permut | |
III) Le tableau de déclaration des objets :
| Objets Utilisés | Code | Nature / Type |
| A , B , C , AUX | A |
Entier/Variable |
IV) L'algorithme :
| 0- | Début Permut |
| 1- | Lire(A) |
| 2- | Lire(B) |
| 3- | Lire(C) |
| 4- | Aux ß C |
| 5- | C ß B |
| 6- | B ß A |
| 7- | A ß Aux |
| 8- | Ecrire (A, B, C) |
| 9- | Fin Permut |
V) La traduction en turbo pascal :
Program Permut;
uses Wincrt;
Var A, B : Integer;
Begin
Write('La première valeur :');
Readln(A);
Write('La deuxième valeur :');
Readln(B);
Write('La troisième valeur :');
Readln(C);
Aux : = C;
C : = B;
B : = A;
A : = Aux;
Write('La première valeur sera :',A);
Write('La deuxième valeur sera :',B);
Write('La troisième valeur sera :',C);
End.
| Page d'index | Série structures simples | Haut |