[D7] Problème d'arrondi

**Charly910** · 11/12/2021, 10h04

Bonjour à tous,

je cherche à extraire les 3 premières décimales d'un réel, mais l'arrondi ne se fait pas comme je voudrais :

pour 1234,5655 je dois obtenir 566 car l'arrondi de 565,5 est 566.

Frac(1234,5655) me donne 0, 565499999 ...

et donc Round(Frac(1234,5655) * 1000 me donne 565 !

Comment faire ? si j'ajoute un petit nombre, par exemple 10-4 est ce que cela fonctionnera à coup sûr ?

A+
Charly

**Charly910** · 11/12/2021, 10h39

Nota : j'ai essayé avec SimpleRoundTo comme dans la FAQ, mais sans succès. je vais réessayer ...

A+
Charly

**SergioMaster** · 11/12/2021, 10h47

Bonjour,

Je n'ai pas de D7 dispo à l'instant T. Existait-il déjà la fonction d'arrondi bancaire Math.RoundTo et Math.SimpleRoundTo ? De plus, toujours dans l'unité Math il y a la possibilité de changer le mode Math.SetRoundMode

**Cirec** · 11/12/2021, 10h47

Bonjour,

j'avais fait il y a quelques temps un petit prog avec D7 pour
mieux visualiser les possibilités
Nom : Arrondis&Précisions.png
Affichages : 112
Taille : 26,5 Ko

Nom : Arrondis&Précisions.png
Affichages : 112
Taille : 26,5 Ko

Le Zip:
Arrondis et Précisions.zip

Cordialement,
@+

**Paul TOTH** · 11/12/2021, 11h45

alors il est toujours possible de truander avec un Trunc((x * 100) + 0.5)/100.

EDIT: en fait, Trunc((x * 1000) + 0.5)/1000 dans ton cas

**Charly910** · 11/12/2021, 11h53

Merci à tous les 3, mais je crois que cela ne marche pas à cause de Frac :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Valeur := 1345.5655 ;
  NbDecimales := 3 ;
  SetPrecisionMode(pmExtended) ;
  SetRoundMode(rmNearest) ;
  Decimales := RoundTo(Frac(Valeur) * Power(10, NbDecimales), 0) ;   // Partie décimale du nombre à convertir
  BB := Frac(Valeur) ;
  AA := BB * Power(10, NbDecimales) ;
  CC := Power(10, NbDecimales) ;
  ShowMessage('Décimales : '+ FloatToStr(Decimales)+Chr(13)+
              'Valeur : '+ FloatToStr(Valeur)+Chr(13)+
              'NbDécimales : '+ IntToStr(NbDecimales)+Chr(13)+
              'Frac(Valeur) : '+ FloatToStr(BB)+Chr(13)+
              'Power(10, NbDecimales) : '+ FloatToStr(CC) +Chr(13)+
              'Frac(Valeur) * Power(10, NbDecimales) : '+ FloatToStr(AA) ) ;

Je vais essayer autrement (le but est d'extraire les NbDecimales premières décimales avec arrondi rmNearest que je ne connaissais pas !)

A+
Charly

**Charly910** · 11/12/2021, 13h33

J'ai fait un peu compliqué, mais qui fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  Valeur := 1345.5655 ;
  NbDecimales := 3 ;
  SetPrecisionMode(pmExtended) ;
  SetRoundMode(rmNearest) ;
  AA := Valeur * Power(10, NbDecimales) ;
  AA := RoundTo(AA, 0) ;
  AA := AA / Power(10, NbDecimales) ;
  Decimales := RoundTo((AA - Trunc(AA)) * Power(10, NbDecimales), 0) ;   // Partie décimale du nombre à convertir
  ShowMessage('Valeur : '+ FloatToStr(Valeur)+Chr(13)+
              'NbDécimales : '+ IntToStr(NbDecimales)+Chr(13)+
              'AA : '+ FloatToStr(AA)+Chr(13)+
              'Résultat : '+ FloatToStr(Decimales)) ;

Je vais essayer la solution de Paul qui ale mérite de la simplicité !

A+
Charly

**Charly910** · 11/12/2021, 13h40

Trunc ne fonctionne pas ?

Code :

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

1
2
3
4
5
6
  BB :=  1345.5655 ;
  NbDecimales := 3 ;
  CC := Trunc((BB * Power(10, NbDecimales)) + 0.5)/Power(10, NbDecimales) ;
  ShowMessage('Valeur : '+ FloatToStr(BB)+Chr(13)+
              'NbDécimales : '+ IntToStr(NbDecimales)+Chr(13)+
              'Résultat : '+ FloatToStr(CC)) ;

Donne : 1234,565

(BB et CC sont déclarés en Real)

A+
Charly

**Charly910** · 11/12/2021, 14h04

Tous semble fonctionner avec :

Code :

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

1
2
  SetPrecisionMode(pmDouble) ;
  SetRoundMode(rmNearest) ;

Merci à Cirec (et aux autres !)

A+
Charly

**blonde** · 11/12/2021, 14h30

Avant qu'on ne referme la discussion, est-ce quelqu'un pourrait éclaire ma lanterne sur le fonctionnement du Trunc ?
J'ai écrit un code équivalent à celui de Charly90, et j'ai le même comportement : les décimales trouvées sont 565, à la place de 566 juste après le Trunc.

Dans la documentation D10 j'ai lu ça :

Trunc renvoie une valeur Int64 qui correspond à la valeur arrondie de X (vers zéro).

Ca veut dire quoi ?
Pour ma part, j'ai toujours cru que tronquer, c'était simplement se débarrasser de la partie décimale.

**blonde** · 11/12/2021, 14h56

Sinon, ceci fonctionne très bien.

Code :

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

1
2
3
4
5
6
 
  e := 1234.5655;
  e := e - Trunc(e);
 
  milliemesI := Round(e * 1000);
  ShowMessage(IntToStr(milliemesI));

**blonde** · 11/12/2021, 14h57

Et le code qui me pose question :

J'ai tout bien détaillé, ce sont les 2 derniers ShowMessage qui me posent problème. Dans le principe, on ne devrait pas afficher exactement la même chose ?

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
 
var
 e : extended;
 e1000 : Extended;
 eFinal : Extended;
 multiplicateur : Integer;
 milliemesE : Extended;
 milliemesI : Integer;
 
begin
 
 e := 1234.5655;
 multiplicateur := 1000;
 
 e1000 := Round(e * multiplicateur) ;
 
 ShowMessage(FloatToStr(e1000));
 
 eFinal := e1000 / multiplicateur;
 ShowMessage(FloatToStr(eFinal));
 
 ShowMessage(FloatToStr(eFinal - Trunc(e)));
 
 milliemesE := (eFinal - Trunc(e)) * multiplicateur;
 milliemesI := Trunc(milliemesE);
 
 ShowMessage(FloatToStr(milliemesE));
 ShowMessage(IntToStr(milliemesI));

**Charly910** · 11/12/2021, 15h39

Bonjour Blonde,

je n'ai pas encore regardé, mais je pense que Trunc doit aussi être sensible à :

Code :

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

1
2
  SetPrecisionMode(pmDouble) ;
  SetRoundMode(rmNearest) ;

A+
Charly

**Charly910** · 11/12/2021, 15h45

Non ce n'est pas cela ! mais ça doit être un problème de représentation des extended :

566 est en fait 565,9999999... donc Trunc = 565

A+
Charly

**blonde** · 11/12/2021, 15h57

J'ai essayé ça, tu vas voir, c'est drôle :

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
35
var
 e : extended;
 e1000 : Extended;
 eFinal : Extended;
 multiplicateur : Integer;
 milliemesE : Extended;
 milliemesI : Integer;
 
 oldPM : TFPUPrecisionMode;
begin
 
  oldPM := GetPrecisionMode;
  SetPrecisionMode(pmDouble);
 
 e := 1234.5655;
 multiplicateur := 1000;
 
 e1000 := Round(e * multiplicateur) ;
 
 ShowMessage(FloatToStr(e1000));
 
 eFinal := e1000 / multiplicateur;
 ShowMessage(FloatToStr(eFinal));
 
 ShowMessage(FloatToStr(eFinal - Trunc(e)));
 
 milliemesE := (eFinal - Trunc(e)) * multiplicateur;
 milliemesI := Trunc(milliemesE);
 
 ShowMessage(FloatToStr(milliemesE));
 ShowMessage(IntToStr(milliemesI));
 
 SetPrecisionMode(oldPM);
 
end;