Discussion :

[Hicks90]

Bonjour,
J'ai fait quelques recherches, fait quelques essais, mais là je sèche sur ce soucis

Je dois ajouter une fonctionnalité a un programme existant... je vous présente la chose.
- j'ai dans un "TabularFile" (enfait un stringgrid avec un "Loadfromfile") qui charge des fichiers textes. Le nombre de colonne est fixe, mais le nombre de ligne est variable.
- je dois faire une analyse statistiques (uses Math) sur des chiffres de ce tableau. Le nombre de chiffre est variable.
- je crée un tableau dynamique.
- pour ce faire, je balaye tout le tableau dans une boucle FOR entre la borne inférieur et la borne supérieur du tableau. Quand une condition est vrai, je copie le chiffre de la cellule dans un tableau dynamique. A chaque ajout dans le tableau dynamique, j'agrandis le tableau avec un SetLength.
- A la compilation, j'ai le message d'erreur cité dans le titre : "Types incompatibles : 'Array' et 'dynamic array'".

J'ai écris un bout de code d'exemple:
Dans ce cas "a" = 56 et "b" = 179
La tableau = "dummy: array of double;"
Le programme copie dans le tableau dynamique (dummy) une série de valeur lues dans le TabularFile entre la borne inférieur "a" et la borne supérieur "b" et finalement de calculer la valeur MIN, MAX et la Moyenne. Dommage il manque la Mediane.

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
 
// Variable indice du tableau              
dummy_count:=0;
// Initialise le tableau a 0 élément
setlength(dummy,0);
 
for y:=a to b do
begin
// Aggrandi le tableau de 1 élément
SetLength(dummy, Length(dummy)+1);
// Copie dans le tableau le contenu de la cellule
dummy[dummy_count]:=strtoint(tabularfile1.Cells[11,y]);
// Incrémente l'indice du tableau
inc(dummy_count);
end;
 
// Le trouble est ci-dessous.
memo1.lines.add('MinValue: '+MinValue(dummy));
memo1.lines.add('MaxValue: '+MaxValue(dummy));
memo1.lines.add('MeanValue: '+Mean(dummy));

- Je ne vois pas comment ne pas utilisé de tableau dynamique, je ne connais pas à l'avance le nombre de valeur a lire...

J'espère avoir été assez clair et précis, vous pouvez m'aider ??

Merci à l'avance

[archonte]

Ton code marche bien chez moi, en tout cas pour ce qui est des dynamic array ....

Par contre, ton Memo1.lines.add attend en paramètre une string .

Code :

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

1
2
3
4
5
6
7
8
memo1.lines.add('MinValue: ' + FloatToStr(MinValue(dummy)));
memo1.lines.add('MaxValue: '+ FloatToStr(MaxValue(dummy)));
memo1.lines.add('MeanValue: '+ FloatToStr(Mean(dummy)));
 
// au lieu de 
memo1.lines.add('MinValue: '+MinValue(dummy));
memo1.lines.add('MaxValue: '+MaxValue(dummy));
memo1.lines.add('MeanValue: '+Mean(dummy));

[archonte]

Pour la médiane : un simple calcul peut t'aider :

- si ton effectif (n) est impair : alors la médiane est la valeur à la position (n+1)/2

- si ton effectif est pair : la médiane est la valeur moyenne entre les 2 positions n/2 et (n+1)/2

[Hicks90]

Bonjour,
Merci pour ta réponse... c'est exactement ça le problème... il ne faut vraiment pas essayé de codé quelque chose fatiguer

Je suis un boulet



Je me doutais bien que ce serait tout con...
Merci encore.

Ton code marche bien chez moi, en tout cas pour ce qui est des dynamic array ....

Par contre, ton Memo1.lines.add attend en paramètre une string .

Code :

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

1
2
3
4
5
6
7
8
memo1.lines.add('MinValue: ' + FloatToStr(MinValue(dummy)));
memo1.lines.add('MaxValue: '+ FloatToStr(MaxValue(dummy)));
memo1.lines.add('MeanValue: '+ FloatToStr(Mean(dummy)));
 
// au lieu de 
memo1.lines.add('MinValue: '+MinValue(dummy));
memo1.lines.add('MaxValue: '+MaxValue(dummy));
memo1.lines.add('MeanValue: '+Mean(dummy));

[Hicks90]

Merci pour ta recette de la mediane
Celle la je l'avais bon, je disais juste dommage qu'elle ne soit pas dans la libraire Math

Pour la médiane : un simple calcul peut t'aider :

- si ton effectif (n) est impair : alors la médiane est la valeur à la position (n+1)/2

- si ton effectif est pair : la médiane est la valeur moyenne entre les 2 positions n/2 et (n+1)/2