Discussion :

[revsys]

Bonjour,

Je voudrais calculer la médiane de plusieurs nombres stockés sous la forme de string dans un tableau Excel dans la colonne 4 à partir de la ligne 4.
Ces nombres sont stockés au fur et à mesure par un programme.
Le numéro de ligne est incrémenté pour stocker ces nombres les uns en dessous des autres.

J' incrémente un integer (k) à chaque fois qu'il est possible de lire le nombre dans une ligne Excel (cela voudra dire qu'une valeur y est placée). K contient donc le nombre de valeurs placées dans la colonne 4.

Code :

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

1
2
3
4
5
6
7
 
while excel.Lire(k,4) <> '' do
    try
    excel.Lire (k,4);
…
except
inc(k) ;

Je lis Excel par l’intermédiare d’une de mes fonctions.

Code :

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

1
2
 
excel.Lire (k,4) ; // avec k le numéro de ligne.

J'ajoute 1 à k puis je le divise par 2 :
mediane := (k + 1)/2;
Suivant si le nombre de mes valeurs placées dans Excel sont paires ou impaires le calcul de la médiane est différent :

Code :

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

1
2
3
4
 
if (k mod 2)=0 then // si le reste de la division (k div 2) est égal a zero alors nombre pair
…
else…

Médiane = (k + 1) ÷ 2 avec k le nombre de chiffres stockés dans Excel.
Par exemple, dans mon tableau il y a ces chiffres:

25, 26, 27, 28 et 29.

Médiane = (k + 1) ÷ 2
= (5 + 1) ÷ 2
= 3

La troisième valeur dans l'ensemble de données sera la médiane. Comme la troisième valeur est 27 secondes, elle constituera le temps médian.

Autre exemple avec un nombre pair de mes nombres stockés dans Excel.

25, 26, 27, 28, 29, 30. On utilise ensuite la même formule pour calculer le temps médian.

Médiane = la valeur (k + 1) ÷ 2
= (6 + 1) ÷ 2
= 7 ÷ 2
= 3,5

Il n'y a aucune valeur intermédiaire distincte. La médiane tombe entre les 3e et 4e valeurs, c'est-à-dire la 3,5e observation dans l'ensemble de données. On calcule donc la médiane en établissant la moyenne des deux valeurs intermédiaires, 27 et 28.

Moyenne = (valeur au-dessous de la médiane + valeur au-dessus de la médiane) ÷ 2
= (troisième valeur + quatrième valeur) ÷ 2
= (27 + 28) ÷ 2
= 55 ÷ 2
= 27,5 = médiane

Ensuite il faut donc que je lise le contenu de la ligne médiane si le nombre de valeurs est impair, et/ou calculer la moyenne des valeurs en dessous et au dessus si le nombre est pair.
Aprés avoir fait ces calculs, le résultat est stocké dans une variable de type integer appelée mediane.
Ensuite je veux mettre mediane, aprés l'avoir mis en string, dans une case Excel.

Code :

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

1
2
3
 
IntToStr(mediane);
excel.Ecrire(3,3,mediane);

Je vois comment faire, mais je ne sais pas le transcrire en Delphi (je débute).
Si quelqu'un pouvait me donner quelques méthodes pour arriver à mes fins...

Merci d'avance.

[revsys]

Mon code donne ceci mais j'ai des erreurs de type :

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
24
25
26
27
28
29
30
31
 
 m,n,p,k : integer;
 
procedure TForm1.mediane;
var mediane, mediane1, mediane2, mediane3 : integer;
begin
    while excel.Lire(k,4) <> '' do
    try
        excel.Lire (k,4);
        inc(k);
    except
    end;
 
    if (k mod 2)=0 then // si le reste égal a zero alors nombre pair
    begin
        m := ((k + 1) div 2;
        mediane := excel.Lire(m,4);
        excel.Ecrire(3,3,mediane);
        end
    else
        m := (k + 1) div 2;
        n := (m - 0.5);
        p := (m + 0.5);
        mediane1 := excel.Lire(n,4);
        mediane2 := excel.Lire(p,4);
        StrToInt(mediane1);
        StrToInt(mediane2);
        mediane3 := (mediane1 + mediane2) div 2;
        IntToStr(mediane3);
        excel.Ecrire(3,3,mediane3);
end;

[Error] Exp.pas(417): Incompatible types: 'String' and 'Integer'
[Error] Exp.pas(418): Incompatible types: 'String' and 'Integer'
[Error] Exp.pas(422): Incompatible types: 'Integer' and 'Extended'
[Error] Exp.pas(423): Incompatible types: 'Integer' and 'String'
[Error] Exp.pas(424): Incompatible types: 'Integer' and 'String'
[Error] Exp.pas(425): Incompatible types: 'String' and 'Integer'
[Error] Exp.pas(426): Incompatible types: 'String' and 'Integer'
[Error] Exp.pas(427): Incompatible types: 'Integer' and 'Extended'
[Error] Exp.pas(430): Incompatible types: 'String' and 'Integer'
[Fatal Error] Projetexp.dpr(6): Could not compile used unit 'Exp.pas'

[Eric Boisvert]

je te laisse regarder ceci

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
 
If (k Mod 2) = 0 Then // si le reste égal a zero alors nombre pair
  Begin
    m := ((k + 1) / 2); // L'opérateur / retourne un Extended incompatible avec m qui est un integer
    mediane := excel.Lire(m, 4); //excel.Lire retourne une string...incompatible avec mediane
    excel.Ecrire(3, 3, mediane); //3eme parametre de excel.Ecrire doit-être une string
  End
  Else
  Begin //<-- attention, il manque un begin-End!
    m := (k + 1) / 2;// encore les 3 lignes suivante...
    n := (m - 0.5);  // tu essaie de mettre des extended dans des variables
    p := (m + 0.5);  // de type integer;
    mediane1 := excel.Lire(n, 4); // excel.Lire retourne une string...que
    mediane2 := excel.Lire(p, 4); // tu essaie de mettre dans un integer
    StrToInt(mediane1); //Fait F1 sur la fonction StrToInt...
    StrToInt(mediane2); //en plus, mediane1 et mediane2 sont déjà des integer.
    mediane3 := (mediane1 + mediane2) / 2; //une division par 2 avec / retourne un extended.
    excel.Ecrire(3, 3, mediane3); // excel.ecrire attend une string pour 3eme parametre et                                  // présentement, medianne3 est un integer.
  End; //<-- attention, il manque un begin-End!

Quelques pistes...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  // tes variables auraient intéret à être défini comme des extended...fait F1
  // car ceci:
m:= 1.5; //<- c'est impossible si m est un integer!
  //
  // les fonctions StrToFloat() et FloatToStr() seront évidamment tes amis..F1
  // La fonction excel.read() retourne une string... c'est comme si on essayait
  // de faire ceci:
mediane := '15'; //<- impossible de mettre la string '15' dans une variable
  //                     de type integer, ou extended... on doit la convertire
  //                     avant.
  // un exemple:
mediane := StrToFloat(excel.Lire(m,4));

si tu as d'autre question, on est là pour t'aider...

[revsys]

Merci pour ta réponse.
J'ai modifié mon code en suivant tes remarques, mais j'ai toujours deux erreurs (c'est mieux ) :

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
24
25
26
27
28
29
30
31
32
33
34
 
  k,m,q : integer;
  n,p : extended;
 
procedure TForm1.mediane;
var mediane, mediane1, mediane2: string;
begin
    while excel.Lire(k,4) <> '' do
    try
        excel.Lire (k,4);
        inc(k);
    except
    end;
 
    if (k mod 2)=0 then // si le reste égal a zero alors nombre pair
    begin
        m := ((k + 1) div 2);
        mediane := excel.Lire(m,4);
        excel.Ecrire(3,3,mediane);
        end
    else
    begin
        m := (k + 1) div 2;
        n := (m - 0.5);
        p := (m + 0.5);
        mediane1 := excel.Lire(m,4);
        mediane2 := excel.Lire(m,4);
        StrToInt(mediane1);
        StrToInt(mediane2);
        q := (mediane1 + mediane2) div 2;  // Erreur ligne 429
        IntToStr(q);
        excel.Ecrire(3,3,q);   // Erreur ligne 431
    end;
end;

[Error] Exp.pas(429): Incompatible types: 'String' and 'Integer'
[Error] Exp.pas(431): Incompatible types: 'String' and 'Integer'

[Gilbert Geyer]

Juste quelques remarques en vrac :

Pour simplifier le test pair/impair : utiliser la function Odd(X: Longint): Boolean; elle renvoie True si X est un nombre impair. (Faire F1 sur Odd pour accéder à l'aide en ligne sous Delphi)

Touts les messages d'erreur qui disent 'Incompatible types' signifient que dans la ligne en question il y une tentative faire une opération avec des paramètres dont le type ne convient pas, en bref c'est comme si on voulait additionner des carottes à des radis en espérant que le résultat soit des patates (lol)

Exemples :

- Ex1 : si j'écris test:=Odd(X); et que test est déclaré comme une variable du type byte au lieu du Boolean spécifié dans l'aide ... alors ta bécane tousse un message d'erreur ... idem si X est déclaré comme une variable du type real au lieu du Longint spécifié.

- Ex2 : T'as dit au début "[I] ...nombres stockés sous la forme de string dans un tableau Excel..." : une partie de tes problèmes provient certainement de là.
Par exemple du déclares var mediane, mediane1, mediane2, mediane3 : integer; et plus loin mediane := excel.Lire(m,4); qui te renvoie comme t'as dit des string d'où des messages d'erreur du type "Incompatible types: 'Integer' and 'String'"

Remède : modifs du style mediane:=StrToInt(excel.Lire(m,4)); pour convertir la string-lue en integer lors de la lecture d'Excel et l'inverse c'est à dire par exemple excel.Ecrire(3,3,IntToStr(mediane));

Remarque : L'origine des messeurs d'erreur qui disent "Incompatible types: 'Integer' and 'Extended'" proviennent des opérations du style suivant, après avoir déclaré var m,n,p,k : integer; et ces opérations sont :

1) m := (k + 1)/2; <- la barre / est réservées aux divisions avec des nombres du type Real, Extended c'est à dire pas des Integer comme le sont m et k. Pour effectuer des divisions entre entiers il faut utiliser l'opérateur div par exemple moitie:=largeur div 2.
Mais tu peux également écrire m:=round((k + 1)/2); et dans ce cas la barre de division est tolérée même si k est un Integer;
Voir dans l'aide les fonctions d'arrondi round, trunc, ceil, floor, etc

2) Les autres sont effectivement n := (m-0.5); et p := (m+0.5); et je viens de me rendre compte qu'Eric Boisvert m'a pris de vitesse donc j'arrête ici pour limiter les redites. ... non seulement il est rapide mais en plus il a repéré des erreurs que je n'avais pas vues

Par contre juste une remarque à propos de la mention "tes variables auraient intéret à être défini comme des extended" : faire gaffe car si m, n, p.. sont des indices du tableau Excel il faudra revenir aux integer sinon c'est du coté d'Excel que cela va coincer.

[Gilbert Geyer]

Bigre cela bouge vite ici.

1) Erreur ligne 429

q := (mediane1 + mediane2) div 2; étant donné que t'as modifié les var suivantes de l'Integer en String dans la déclaration de var (var mediane, mediane1, mediane2: string et de L'Integer pour q;
remplacer par q := (StrToInt(mediane1) + StrToInt(mediane2)) div 2;

2) Erreur ligne 431 : faut convertir q en string puisque Excel attend des string :
- remplacer excel.Ecrire(3,3,q);
- par excel.Ecrire(3,3,IntToStr(q));

[Eric Boisvert]

1+ Gilbert Geyer
C'est fou comme tu explique bien les choses!

Bigre cela bouge vite ici.

1+ encore!

Et cette fois,c'est toi le plus rapide!

[Gilbert Geyer]

A Eric

C'est fou comme tu explique bien les choses!

Vu que Revsys a annoncé "Je débute" je m'efforce davantage à éclairer sa lanterne plutôt que de faire directement de la correction de code.
D'ailleurs on devrait pouvoir se contenter pour chaque type générique d'erreur de donner une explication complétée par un seul exemple issu du code et de laisser à l'intéressé le soin de corriger le reste du code avec l'explication.
D'ailleurs comme dit un proverbe chinois "vaut mieux apprendre à quelqu'un de pêcher que de lui apporter des poissons".
A+

[revsys]

Merci tous les deux pour vos réponses, je vais essayer tout ça dès lundi, mais pour l'instant je n'ai pas le matériel nécessaire.
Je vous tiens au courant.

[revsys]

J'ai résolu mes problèmes, le code final est donc le suivant :

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
24
25
26
27
28
29
30
31
 
  k,q,m : integer;
  n,p : extended;
 
procedure TForm1.mediane;
var mediane, mediane1, mediane2: string;
begin
    while excel.Lire(k,4) <> '' do
    try
        excel.Lire (k,4);
        inc(k);
    except
    end;
 
    if (k mod 2)=0 then // si le reste égal a zero alors nombre pair
    begin
        m := ((k + 1) div 2);
        mediane := excel.Lire(m,4);
        excel.Ecrire(3,3,mediane);
        end
    else
    begin
        m := (k + 1) div 2;
        n := (m - 0.5);
        p := (m + 0.5);
        mediane1 := excel.Lire(round(n),4);
        mediane2 := excel.Lire(round(p),4);
        q := (StrToInt(mediane1) + StrToInt(mediane2)) div 2;
        excel.Ecrire(3,3,IntToStr(q));
    end;
end;

Merci encore pour vos conseils