pb avec la fonction trunc()

Version imprimable

19/12/2006, 17h23
isachat666

pb avec la fonction trunc()

Bonjour,
je travaille sur des conversions entier / heures:minutes et je rencontre un pb avec la fonction trunc.
En faisant trunc(v*60) si v*60 vaut 840, le trunc me retourne 839 (ce qui fait que je perds une précision de 1 minute dans mon résultat final)
comment faire pour contourner ce pb ? je ne peux pas utiliser round car si v*60 vaut 1261,5 round renvoie 1262 (or c'est vraiment la valeur 1261 que je veux récupérer...) sinon j'ai un résultat avec une minute de trop...
c'est un vrai casse-tête...

merci de votre aide

Isa
19/12/2006, 17h35
Yurck

bonjour,

Le type de déclaration de tes variables est à l'origine de ce petit désagrément.
si v n'a pas plus de 4 décimales alors délare le en currency et essaie à nouveau humain.

a+
19/12/2006, 17h50
isachat666

je dois faire plus de tests pour confirmer mais apparemment si je fais
trunc(v * 60.01) ça semble fonctionner.

Isa

Bonjour moi, je fais

Code:

1
2
3
4
5
6
7
8
9
 
Var
  Ya : Real;
  NbrDigit : Integer;
begin
  Ya := LogN(16, 57);
  NbrDigit := Round(Ya);
  if Ya < Trunc(Ya)+0.5 then NbrDigit := NbrDigit + 1 ;
end;

19/12/2006, 18h20
Yurck

Certes,

Real * Integer = Real
Double * integr = Double

etc....

donc si tu multiplie deux valeurs le format du résultat est le plus grand de tes deux formats.
Or depuis que l'informatique existe les grands formats (cetains type de données) sont sujets aux effets de bord.
Donc
840 de type integer = 840
840 de type currency = 840.0000
840 de type float = +/- 840.000000000000
soit 840.00000000000000000000000000001
ou 839.99999999999999999999999999999999
(le signe = signifie ici "est stocké sous la forme")

En conséquence de quoi le Trunc qui te renvoie la partie entière te renverra un résultat différent suivant la machine sur laquelle tu travailles.

a+
19/12/2006, 18h25
Yurck
Citation:
Envoyé par defluc

Bonjour moi, je fais

Code:

1 2 3 4 5 6 7 8 9 Var Ya : Real; NbrDigit : Integer; begin Ya := LogN(16, 57); NbrDigit := Round(Ya); if Ya < Trunc(Ya)+0.5 then NbrDigit := NbrDigit + 1 ; end;
Oui c'est comme cela que l'on contourne se problème ou en utilisant des bibliothèques mathématiques adaptées.
Cependant insistons sur le pourquoi du comment ?

Et au passage je pense que ton exemple de code est faux ou du moins incomplet car il ne gère pas les valeurs négatives.

a+
20/12/2006, 09h25
sovitec

Citation:

Envoyé par Yurck

840 de type integer = 840
840 de type currency = 840.0000
840 de type float = +/- 840.000000000000
soit 840.00000000000000000000000000001
ou 839.99999999999999999999999999999999
(le signe = signifie ici "est stocké sous la forme")

Non, non, Il n'y a pas de problème d'arrondi pour les nombres entiers, mais seulement pour la plupart des nombres décimaux.

Sinon pour répondre à la question initiale un Trunc(v * 60 + epsilon) ou epsilon est fonction du type de nombre flottant choisi (Single, Double ou Extended) devrait faire l'affaire.
20/12/2006, 12h41
Yurck

Citation:

Envoyé par sovitec

Non, non, Il n'y a pas de problème d'arrondi pour les nombres entiers, mais seulement pour la plupart des nombres décimaux.

Sinon pour répondre à la question initiale un Trunc(v * 60 + epsilon) ou epsilon est fonction du type de nombre flottant choisi (Single, Double ou Extended) devrait faire l'affaire.

Je dirai même plus il n'y a pas de problème d'arrondi avec les nombres entiers,
mais seulement pour la plupart des nombres décimaux.
20/12/2006, 13h30
isachat666

Merci à tous.
bon, ben je marque résolu :mrgreen:

Isa
26/12/2006, 12h17
defluc

Merci à Yurk de m'avoir fait remarquer mon oubli des nombres négatifs