Nouvelle page 1

Les structures de contrôle itératives

Mise à jour le : 01/11/2004

Énoncé

Écrire un programme qui calcule la quantité S
avec S=1+ 2 + 3 + ................ + N (N est strictement positif).

I) La préanalyse :

Données : 
- Le nombre de termes est  N

Résultat :

	S
	0+1+2+3+4+ ....+N
	Entier

La variable S contient la somme de termes.
I une Variable compteur

	I			S
	?			?
	Entier			Entier

Étape 1 :

On initialise S à zéro :

	I			S
	?			0
	Entier			Entier

Étape 2 :

Le compteur prend la valeur 1 : I = 1

On somme l'ancienne valeur de S et la nouvelle valeur du compteur : S ß S + I

	I			S
	1			0+1
	Entier			Entier

Étape 3 :

Le compteur prend la valeur 2 : I = 2

On somme l'ancienne valeur de S et la nouvelle valeur du compteur : S ß S + I

	I			S
	2			0+1+2
	Entier			Entier

Étape 4 :

Le compteur prend la valeur 3 : I = 3

On somme l'ancienne valeur de S et la nouvelle valeur du compteur : S ß S + I

	I			S
	3			0+1+2+3
	Entier			Entier

Étape 5 :

Le compteur prend la valeur 4 : I = 4

On somme l'ancienne valeur de S et la nouvelle valeur du compteur : S ß S + I

	I			S
	4			0+1+2+3+4
	Entier			Entier

Etc jusqu'à

Étape N+1 :

Le compteur prend la valeur N : I = N

On somme l'ancienne valeur de S et la nouvelle valeur du compteur : S ß S + I

	I			S
	N			0+1+2+3+4+ ........... + N
	Entier			Entier

 II) L'analyse :

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

III) Le tableau de déclaration des objets :

Objets Utilisés	Nature / Type	Rôle
I	Variable/Entier	Compteur
S	Variable/Entier	Recevoir le cumul des N premiers entiers
N	Variable/Entier	Le nombre de termes à sommer

IV) L'algorithme :

0-	Début Somme
1-	Répéter
	Lire(N)
	Jusqu'à N>0
2-	Sß 0
	Pour I de 1 A N Faire
	Sß S + I
	FinPour
3-	Écrire(S)
4-	Fin Somme

V) La traduction en turbo pascal :

Program Somme;
uses Wincrt;
Var I, N,S : Integer;
Begin
	Repeat
		Write('N :');
		Readln(N);
	Until N>0;
	S : = 0;
	For I : = 1 To N Do
		S : =  S + I;
	Write('La Somme est :',S);
End.

Série Les structures de contrôle itératives