Comment convertir le "Double" en "Integer"?Résolu

Question

Comment convertir le "Double" en "Integer"?

SVP c'est urgent . Merci ;)

cs_ManChesTer · Answer

pour arondir (12.51=13):

Moninteger:=round(Double);

Pour "couper" (12.51=12):
Moninteger:=Trunc(Double);

Bon Coding ....

ManChesTer.

WhiteHippo · Answer

Attention avec la fonction round !!!!

En Delphi c'est un "round statistique"

round(10.5) = 10
round(11.5) = 12

Pour un "round commercial" rapide et simple :

Function RoundCommercial (R:extended):LongInt;
begin
  Result:= Trunc(R);       
  if Frac(R) >= 0.5 then Inc(Result);
end;

Cordialement.

BakaSora · Answer

G&#233;nial, merci &#224; vous :).

japee · Answer

Merci WhiteHippo d'avoir attir&#233; mon attention sur le fait que Round n'&#233;tait pas tr&#232;s "math&#233;matique".



Je n'y ai pas cru tout d'abord, et pourtant...



Extrait de l'aide de Delphi concernant Round :



"La fonction Round arrondit une valeur de type r&#233;el en valeur de type entier.

X est une expression r&#233;elle. Round renvoie une valeur Int64 qui
correspond &#224; la valeur de X arrondie au nombre entier le plus proche. Si X se trouve exactement &#224; mi-chemin entre deux nombres entiers, le r&#233;sultat est toujours le nombre pair."



Ah ben &#231;a alors !



Si je comprends bien, on est oblig&#233; de se la cr&#233;er, notre fonction...



Que pensez-vous de ceci ?



function ReallyRound(Number: Extended): Int64;

begin

  if (Frac(Number) * 2) >=   1  then

    Result : = Trunc(Number) + 1

  else Result := Trunc(Number);

end;



Bonne prog

japee · Answer

Oups, d&#233;sol&#233;, WhiteHippo... 



J'avais pas fait gaffe &#224; ta fonction RoundCommercial. 



J'ai failli r&#233;inventer la roue, quoi... (en la compliquant inutilement). 



"Je promets de lire attentivement les posts avant d'intervenir" &#224; copier 100 fois pour lundi matin. 



Bonne prog' 



japee

WhiteHippo · Answer

C'est pas bien grave tout &#231;a 

Pas de Cordialement ce soir, circonstances obligent  :

"Que la force soit avec toi".

cs_ManChesTer · Answer

Pour info, le vrai round commercial (enfin l'officiel pour l'euro, le dolllard us&ca, la livre etc...) doit se calculer de la facon suivante :

Function CommercialRound(V:Real):Real;
begin
 Result:=Trunc((v*1000)/10)/100;
end;

En fait 2.52999 = 2.52  2.5111= 2.51 2.555=2.55 etc ... (toujours en faveur du client....)
   

Bon Coding ....

ManChesTer.

japee · Answer

Bon, eh bien tout aura &#233;t&#233; dit sur le sujet, il me semble.



&#201;change tr&#232;s int&#233;ressant, merci les gars 



Bonne prog', et bon coding bien cordial, lol

yopai_v · Answer

Bonjour à tous,
Eh bien, la prochaine fois que j'ai un problème je regarderai l'aide Delphi avant de crier au bug.
Donc, en fait, Round( 29 / 2 ) = 14, ce n'est pas un bug...

Pour ceux qui se posent la question le problème vient de la représentation machine des flottants (qui sait représenter de manière exacte 1/3, mais pas 1/2).
J'ai écrit une fonction qui corrige le problème (ah non, pardon, ce n'est pas un bug) :

function Round2(f : Extended) : Int64
begin
  Result := System.Round(f + 1e-9)
end;

Rigoureusement, ça ne corrige pas le problème dans tous les cas :
en effet, au delà d'un certaine valeur, le flottant ne sera pas affecté par 1e-9
(autrement dit : il faut creuser...)

Cordialement

Comment convertir le "Double" en "Integer"?

9 réponses

Votre réponse

Discussions similaires