Discussion :

[stephane_gilbert]

Bonjour, voici mon problème j'essaie d'additionner les nombres d'un tableau
et faire la moyenne selon le nombre de case utilisé mais je tourne en rond, j'ai "x = array [1..50] of integer" et l'utilisateur peut en utilisé 10 case si requis, pour la moyenne je n'ai pas de trouble j'utilise un compteur et je divise par le nombre d'utilisation mais pour la somme pas de solution.

Merci à vous tous

[EricL]

Tu peux faire quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
var TonArray : array of integer;
     Entree,Somme : integer;
     Moyenne : double;
 
SetLength(TonArray,0);

ensuite, à chaque fois qu'une nouvelle entrée "Entree" est effectuée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SetLength(TonArray,Length(TonArray)+1);
TonArray[high(TonArray)] := Entree;

Enfin, la somme et la moyenne sont égales :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Somme := sum(TonArray);
Moyenne := Somme/Length(TonArray);

[Just-Soft]

Tu peux faire quelque chose comme :

var TonArray : array of integer;
Entree,Somme : integer;
Moyenne : double;

SetLength(TonArray,0);

ensuite, à chaque fois qu'une nouvelle entrée "Entree" est effectuée :

SetLength(TonArray,Length(TonArray)+1);
TonArray[high(TonArray)] := Entree;

Enfin, la somme et la moyenne sont égales :

Somme := sum(TonArray);
Moyenne := Somme/Length(TonArray);

avec l'utilisation de la balise code ça donne ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var TonArray : array of integer;
     Entree,Somme : integer;
     Moyenne : double;
 
SetLength(TonArray,0);
 
//ensuite, à chaque fois qu'une nouvelle entrée "Entree" est effectuée :
 
SetLength(TonArray,Length(TonArray)+1);
TonArray[high(TonArray)] := Entree;
 
//Enfin, la somme et la moyenne sont égales :
 
Somme := sum(TonArray);
Moyenne := Somme/Length(TonArray);

[stephane_gilbert]

Salut, mon exemple ressemble à ceci, pour la division comme mon exercice comporte des conditions il se peut que la division soit un nombre différent du nombre de case mais pour comprendre la somme, cette exemple m'aiderai et de plus je voudrais voir apparaitre le tableau.

Probablement évident pour des gens d'expérience mais complexe pour un novice!!!

merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program Addition;
 
type
    somme=array[1..5]of integer;
 
var
   s:somme;
   x,y,z:integer;
   compte:integer;
 
   begin
        repeat
              Write('Entre un nombre ');
              readln(z);
              s[y]:=z;  // envoi le nombre dans le tableau
              compte:=compte+1;
 
        until compte=5; 
 
              write(s[y]/5,' ');   // ici je le divise par le total du compteur mais il me manque quelque chose pour l'addition !!!
              write('Fin');
              readln;
end.

[stephane_gilbert]

réglé avec persévérence

Merci