Les structures de contrôle itératives

 Mise à jour le : 01/11/2004

Énoncé
Écrire un programme qui calcule XN
avec XN=X*X*X*X* ................ *X 
(N est un entier positif et X est un réel).

I) La préanalyse :

Données : 
- Le nombre de termes est  N

Résultat :
      P      
 

X*X*X*X* ................ *X

Réel 
La variable P contient la valeur de Xn.
I une Variable compteur
  I     P
  ?     ?
Entier
   
Réel

Étape 1 :

On initialise P à 1 :
  I     P
  ?     1
Entier
   
Réel

Étape 2 :

Le compteur prend la valeur 1  :   I = 1

On multiplie l'ancienne valeur de P par la valeur de X    :  P ß  P * X   

  I     P
  1     1*X
Entier
   
Réel

Étape 3 :

Le compteur prend la valeur 2  :   I = 2

On multiplie l'ancienne valeur de P par la valeur de X    :  P ß  P * X   
  I     P
  2     X*X
Entier
   
Réel

Étape 4 :

Le compteur prend la valeur 3  :   I = 3

On multiplie l'ancienne valeur de P par la valeur de X    :  P ß  P * X   
  I     P
  3     X*X*X
Entier
   
Réel

Étape 5 :

Le compteur prend la valeur 4  :   I = 4

On multiplie l'ancienne valeur de P par la valeur de X    :  P ß P * X   
  I     P
  4     X*X*X*X
Entier
   
Réel

Etc jusqu'a

Étape N+1 :

Le compteur prend la valeur N  :   I = N

On multiplie l'ancienne valeur de P par la valeur de X    :  P ß P * X   
  I     P
  N     X*X*X*X* ................ *X
Entier
   
Réel 
II) L'analyse :

Nom = Puissance
Séquences Liste des définitions Explicites Objets Utilisés
4

3




1



2

5		 Résultat = Écrire(P)

P ß 1
Pour I de 1 A N Faire
           P ß  P * X
FinPour

Répéter
     Lire(N)     
Jusqu'à N>=0

Lire(X) 

Fin Puissance

 P

N

I 

X 

 

 

 		 
III) Le tableau de déclaration des objets :
Objets Utilisés Nature / Type   Rôle
I Variable/Entier Compteur
P Variable/Réel Recevoir la quantité XN
N Variable/Entier Recevoir la donnée N
X Variable/Réel Recevoir la donnée X 
IV) L'algorithme :
0- Début Puissance 
1- Répéter
         Lire(N)     
Jusqu'à N>=0
2- Lire(x)
3- P ß 1
Pour I de 1 A N Faire
               P ß  P * X
  FinPour
4- Écrire(P)
5- Fin Puissance  
V) La traduction en turbo pascal :
Program Puissance;
uses Wincrt;
Var I, N : Integer;
      X, P : Real;
Begin
	Repeat
		Write('N :');
		Readln(N);
	Until N>=0;
	Write('X :');
	Readln(X);
	P : = 1;
	For I : = 1 To N Do
		P : =  P * X;
	Write('P =',P:5:2);
End.

 
Page d'index Série Les structures de contrôle itératives Haut