Les structures de contrôle itératives

 Mise à jour le : 01/11/2004

Énoncé

Écrire un programme qui calcule les quantités S1 , S2 et S3
avec 
    S1= 1 + 3 + 5 + ................ + N     
    S2= -2 - 4 - 6 - ................ - (N-1)     
     S3= 1 -2 + 3 - 4 + ................ ± N     (N est strictement positif).


 I) La préanalyse :

II) L'analyse :

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

2

 

 

 

 

1



3

5		 Résultats = Écrire(S1,S2,S3)

S1 ß 0; S2 ß 0;
Pour I de 1 à N faire
Si   I Mod 2 <> 0
              Alors
                     S1 ß S1 + I
              Sinon
                     S2 ß S2 - I
FinSi
FinPour

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

S3 ß  S1+S2

Fin Somme 

 I 

S1

 S2

 S3

 N

 

 

 

 
  
III) Le tableau de déclaration des objets :
Objets Utilisés Code Nature / Type  Rôle
I I Variable/Entier Compteur
S1 S1 Variable/Entier Recevoir la valeur de la 1ére somme S1
S2 S2 Variable/Entier Recevoir la valeur de la 2ème somme S2
S3 S3 Variable/Entier Recevoir le cumul des deux sommes S1 et S2
N N Variable/Entier Le nombre de termes 
IV) L'algorithme :
0- Début Somme 
1- Répéter
         Lire(N)     
Jusqu'à N>0
2- S1 ß 0 ; S2 ß 0
Pour I de 1 A N Faire
                  Si   I Mod 2 <> 0
                           Alors
                                  S1 ß S1 + I
                           Sinon
                                  S2 ß S2 - I
                   Finsi
  FinPour
3- S3 ß S1 + S2
4- Écrire(S1, S2, S3)
5- Fin Somme 
V) La traduction en turbo pascal :
Program Somme;
uses Wincrt;
Var I, N,S1, S2, S3 : Integer;
Begin
	Repeat
		Write('N :');
		Readln(N);
	Until N>0;
	S1 : = 0; S2 : = 0;
	For I : = 1 To N Do
		If  I Mod 2 <> 0
			Then
			     S1 : =  S1 + I
			Else
			     S2 : =  S2 - I;
	S3 : = S1 + S2;
	Writeln('S1  :',S1);
	Writeln('S2  :',S3);
	Writeln('S3  :',S3);
End.

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