Discussion :

[Ludo_360]

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

[Mihalis]

inttofloat

[Ludo_360]

?? 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

[Mihalis]

non il me semble pas inttofloat(un entier);

[Ludo_360]

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

merci qd même

ludo

[J-P-B]

J'ai pas tout compris

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)

[bjl]

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))

[e-ric]

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

Code :

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

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

devrait fonctionner (non testé)

cdlt

[J-P-B]

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

@ 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

[ShaiLeTroll]

(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 :

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

(225.0 - 150.0)*(100.0/150.0)

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

[Linkin]

Une solution consiste à multiplier par 1.0:

Code :

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

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

[J-P-B]

Une solution consiste à multiplier par 1.0

çà change quoi au résultat ?

[Ludo_360]

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 :

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

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 :

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

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

[ShaiLeTroll]

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

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
 
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 :

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

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

[Ludo_360]

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

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

[J-P-B]

Ha !

Le problème vient donc des opérateurs : ( 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 :

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

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 :

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

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

[bjl]

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

@ 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

[LadyWasky]

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 !

Copains

[Ludo_360]

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