II) L'analyse :

Nom = Somme
Séquences	Liste des définitions Explicites	Objets Utilisés
4 3     1 2 5	Résultat = Écrire(S) P ß 1 ; F ß  1 ; S ß 0; Signe  ß 1 Pour I de 1 A N Faire             P ß P * X             F ß F * I             S ß S + P * X * Signe             Signe ß   - Signe FinPour Répéter      Lire(x)     Jusqu'à N>=0 Lire(x)      Fin Somme	P N I  X  Signe

III) Le tableau de déclaration des objets :

Objets Utilisés	Nature/Type	Rôle
I	Variable/Entier	Compteur
F	Variable/Entier	Recevoir le produit factoriel
P	Variable/Réel	Recevoir la quantité XN
N	Variable/Entier	Recevoir la donnée N
Signe	Variable/Entier	Recevoir la valeur +1 ou -1
X	Variable/Réel	Recevoir la donnée X

IV) L'algorithme :

0-	Début Somme
1-	Répéter
	Lire(N)
	Jusqu'à N>=0
2-	Lire(x)
3-	P ß 1 ; F ß 1 ; S ß  0 ; Signe ß  1
	Pour I de 1 A N Faire
	P ß P * X
	F ß F * I
	S ß S + P * X * Signe
	Signe ß   - Signe
	FinPour
4-	Écrire(S)
5-	Fin Somme

V) La traduction en turbo pascal :

Program Puissance;
uses Wincrt;
Var I, N, F, Signe : Integer;
      X, S, P : Real;
Begin
	Repeat
		Write('N :');
		Readln(N);
	Until N>=0;
	Write('X :');
	Readln(X);
	P : = 1; P : =1 ; F : = 1 ; S : = 0 ; Signe : = 1;
	For I : = 1 To N Do
	Begin
		P : = P * X;
		F : = F * I;
		S : = S + P * X * Signe;
		Signe : = - Signe;
	End;
	Write('S =',S:5:2);
End.