Discussion :

[bonpat01]

Bonjour,

Voici une fonction que j'ai créer pour arrondir un nombre réel :

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
Function Arrondi(Chiffre : Real; Decimal : Byte) : Real;
Var
 
    Entier,
    Fract : LongInt;
    Apres  : Real;
    Ct     : Byte;
    xResult : Real;
    Code   : LongInt;
 
Begin
  Entier := Trunc(Chiffre);
  Apres  := Chiffre - Entier;
  Code := 1;
  For Ct := 1 to Decimal do Code := Code * 10;
  Apres := Apres * Code;
  Fract := Round(Apres);
  xResult := Entier + (Fract / Code);
  Arrondi := xResult;
End;

Si Chiffre = 24.715, "Apres" sera donc égal à 71.5 lorsque la fonctionne appelera Fract := Round(Apres);.

Pourquoi, Round me retourne donc 71 ??

J'ai essayer de facon independante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TEcranPrincipal.Button1Click(Sender: TObject);
 
var
  Montant : Real;
  Resultat : LongInt;
 
begin
 
  Montant := 71.5;
  Resultat := Round(Montant);
 
  ShowMessage(FloatToStr(Resultat));
 
end;

Round arrondi bien à 72

Je comprend pas trop la... j'ai fait bien des tests et je trouve rien.

Merci de votre aide

[sovitec]

24.715 ne possède pas de représentation exacte en binaire. Il est probable qu'il soit en interne arrondi à 24.7149999...

[bonpat01]

Merci !

Je serais donc tombé sur un cas, je l'expère tres particulier.

J'ai résolu mon problème temporairement en ajoutant 0.0001 à 24.715.

Apres est donc égal à 71.51 lors de l'appel de Fract := Round(Apres);

Je trouve ca très moche comme résolution de problème.

Comment as-tu fais pour savoir que 24.715 n'a pas de correspondance exacte en binaire ? Peut-etre cela pourrais m'aider dans le futur.

[sovitec]

Je serais donc tombé sur un cas, je l'expère tres particulier.

Comment as-tu fais pour savoir que 24.715 n'a pas de correspondance exacte en binaire ? Peut-etre cela pourrais m'aider dans le futur.

Malheureusement le cas particulier c'est lorsqu'un nombre décimal possède une représentation exacte en binaire (il y a une chance sur 5^n, où n est ne nombre de chiffre décimaux, que ce soit le cas). Par exemple pour les nombres avec 3 chiffres décimaux il n'y a que ceux se terminant par .125/.375/.625/.875 qui ont une représentation binaire exacte.

J'ai résolu mon problème temporairement en ajoutant 0.0001 à 24.715.

Apres est donc égal à 71.51 lors de l'appel de Fract := Round(Apres);

Je trouve ca très moche comme résolution de problème.

Je confirme que ce n'est pas beau. Si il n'y a jamais plus de 4 chiffres décimaux la solution est d'utiliser le type currency plutôt que Real.

[banban54]

bonjour

l'aide a dit:
Description

La fonction Round arrondit une valeur de type réel en valeur de type entier.

X est une expression de type réel. Round renvoie une valeur Int64 qui correspond à la valeur de X arrondie au nombre entier le plus proche. Si X se trouve exactement à mi-chemin entre deux nombres entiers, le résultat est toujours le nombre pair. Cette méthode est souvent appelée "arrondi bancaire".

à plus!

[tourlourou]

tu as aussi les fonctions Ceil, Floor, et RoundTo