passer d'un int to curr (float)

bonjour,

je souhaite trouver une façon de convertir un int en nb à virgule le tps d'un calcul de façon simple:

exemple: (225 - 150)*(100/150) // ici on aura 100/150 = 0 en int..

savoir s'il existe une fonction ou pas...

bien sur on peut ecrire (((225-150)*100)/150)... mais je cherche une fonciton pour ma culture personnelle lol

ludo

inttofloat

?? inttofloat?

C'est ce que j'ai testé en premier... Ca marche pas... sigh

y a til un truc a savoir en particulier? :s

ludo

non il me semble pas inttofloat(un entier);

bon.. je m'en souviendrais pour une utilisation plus "normale" mais ici ça marche pas...

merci qd même

ludo

J'ai pas tout compris :koi:

100/150 est bien un flottant, contrairement à 100 div 50 ...

Tu peux forcer un flottant en écrivant 100.0, mais c'est peu utile. Delphi se débrouille tout seul la plupart du temps et on peut toujours utiliser des entiers à la place des flottants (sauf exception, paramètres var par exemple)

tu voudrais avoir un résultat en interger avec une opération en flottants ?

regarde du coté des fonctions round, trunc et int

par exemple, round((225 - 150)*(100/150))

Coercition ... (cherche sur Google qui va devenir ton ami)

Code:

---

1 2	(double(225) - 150)*(double(100)/150)

---

devrait fonctionner (non testé)

cdlt

Heu ...
Plus je lit cette discussion, moins je pige :koi:

@ bjl : le titre de la discussion est bien de passer d'un entier à un flottant et non l'inverse

@ e-ric : ça marche peut-être mais ça me parait parfaitement inutile ...

En fait la transformation entier -> flottant est native dans le compilateur

8O

(225 - 150) = 75
(100/150) = 0.6666666667
(225 - 150)*(100/150) = 50

Calcul Flottant obligatoire ...

ensuite IntToFloat n'a aucun sens en mathématique, c'est juste un transypage ? MonDouble := MonEntier avec Double(MonEntier) implicite

ensuite on peut écrire ceci ...

Code:

---

(225.0 - 150.0)*(100.0/150.0)

---

je suis comme J-P-B, je ne comprends le problème ...

Une solution consiste à multiplier par 1.0:

Code:

---

1 2	1.0*(225 - 150)*(100/150)

---

Citation:

---

Envoyé par Linkin

Une solution consiste à multiplier par 1.0

---

çà change quoi au résultat ?

Merci pour vos indications

multiplier par 1.0 permet de'indiquer le format float.

mon problème tout simplement est que lorsque j'écris

Code:

---

1 2 3 4 5

var var_X, origin.X, X_max : integer;   var_X:= round((FPoints[ii].X - origin.X) * (X_max div origin.X))

---

Le résultat est zero

alors j'ai posé cette question pour avoir un max d'indication sur le format float:

maintenant je fais cela:

Code:

---

1 2 3 4 5

var var_X, origin.X, X_max : integer;   var_X:= round(((FPoints[ii].X - origin.X) * X_max) div origin.X)

---

c'est con mais ça marche

voila

merci

ludo

Pourquoi ne pas avoir posté ce code avant ... cela aurait évité 10 messages inutiles

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TFrmTestALaCon.BtnCalculFloattantClick(Sender: TObject); var var_X, FPoints_X, origin_X, X_max : integer; begin ShowMessage(FloatToStr((225 - 150))); ShowMessage(FloatToStr((100/150))); ShowMessage(FloatToStr((225 - 150)*(100/150))); ShowMessage(FloatToStr((225.0 - 150.0)*(100.0/150.0))); FPoints_X := 225; origin_X := 150; X_max := 100; var_X:= round((FPoints_X - origin_X) * (X_max / origin_X)); ShowMessage(IntToStr(var_X)); end;

---

Ce devrait fonctionner, div c'est la division entière, / la division flottante ...

Code:

---

var_X:= round((FPoints[ii].X - origin.X) * (X_max / origin.X))

---

Ces dix messages m'ont apporté des précisions sur des utilisations de fonctions courantes comme div et / tout simplement.

Citation:

---

Ce devrait fonctionner, div c'est la division entière, / la division flottante ...

---

C'est ce dont je me suis aperçu grâce à vos messages... alors inutile pour toi peut-être, dslé de t'avoir fait perdre ton temps, moi je débute et j'ai des questions un peu con des fois.

merci qd même

ludo

Ha !

Le problème vient donc des opérateurs : (:f1: sur div)
"div" fait une division entière et renvoi toujours un entier
"/" fait une division réelle et renvoi toujours un flottant

si

Code:

---

var_X:= round((FPoints[ii].X - origin.X) * (X_max div origin.X))

---

si origin.X > X_max alors (X_max div origin.X) vaut 0 donc var_X = 0 !!

Et aussi, dans ça :

Code:

---

var_X:= round(((FPoints[ii].X - origin.X) * X_max) div origin.X)

---

le round est inutile, étant donné que "div origin.X" renvoi forcément en entier

JP

EDIT : désolé pour le post inutile, je suis un peu lent des fois :oops:

Citation:

---

Envoyé par J-P-B

Heu ...
Plus je lit cette discussion, moins je pige :koi:

@ bjl : le titre de la discussion est bien de passer d'un entier à un flottant et non l'inverse

@ e-ric : ça marche peut-être mais ça me parait parfaitement inutile ...

En fait la transformation entier -> flottant est native dans le compilateur

---

JPB
si j'ai bien compris, il veut faire une opération en flottant et avoir le résultat en integer.

l'opérateur / renverra toujours un flottant

Citation:

---

Envoyé par Ludo_360

Ces dix messages m'ont apporté des précisions sur des utilisations de fonctions courantes comme div et / tout simplement.



C'est ce dont je me suis aperçu grâce à vos messages... alors inutile pour toi peut-être, dslé de t'avoir fait perdre ton temps, moi je débute et j'ai des questions un peu con des fois.

merci qd même

ludo

---

Oui, bah c'est bon hein ?
Pas la peine d'en faire un drame non plus !:roll:

Copains :chin: :calin: :love2: :ccool:

dslé fatigué... mais c'était pas un drame, pa du tou =)