Partie avant la virgule. [Résolu]

Becracker 116 Messages postés dimanche 12 décembre 2004Date d'inscription 25 septembre 2005 Dernière intervention - 8 sept. 2005 à 21:20 - Dernière réponse : jlen100 1651 Messages postés samedi 10 juillet 2004Date d'inscription 25 juillet 2014 Dernière intervention
- 8 sept. 2005 à 22:43
Salut les gars,



Je voudrai savoir comment on fait lorsqu'on a le résultat d'une
division de ne récupérer que la partie avant la virgule. De même pour
la partie après la virgule.



Désolé pour la question toute bête.


-----------------------------------------

May Delphi and Php change the world ....
Afficher la suite 

3 réponses

Répondre au sujet
jlen100 1651 Messages postés samedi 10 juillet 2004Date d'inscription 25 juillet 2014 Dernière intervention - 8 sept. 2005 à 21:40
0
Utile
salut
utilise la fonction trunc() pour la partie entiere et la fonction fract pour la partie decimale
function Trunc(X: Extended): Int64;


Description


Dans le code Delphi, la fonction Trunc tronque une valeur de type réel en valeur de type entier. X est une expression de type réel. Trunc renvoie une valeur Int64 qui correspond à la valeur arrondie de X (vers zéro).


function Frac(X: Extended): Extended;


Description


Dans le code Delphi, la fonction Frac renvoie la partie décimale de l'argument X.


X est une expression de type réel. Le résultat est la partie décimale de X ; c'est-à-dire Frac(X) = X - Int(X).

bonne prog.
Commenter la réponse de jlen100
Becracker 116 Messages postés dimanche 12 décembre 2004Date d'inscription 25 septembre 2005 Dernière intervention - 8 sept. 2005 à 22:09
0
Utile
Ok mais comme j'ai pas l'habitude de travailler avec les fonctions,tu
peux me détailler ca un peu plus, stp. Merci pour tout.

-----------------------------------------

May Delphi and Php change the world ....
Commenter la réponse de Becracker
jlen100 1651 Messages postés samedi 10 juillet 2004Date d'inscription 25 juillet 2014 Dernière intervention - 8 sept. 2005 à 22:43
-2
Utile
var
V1,V2, R: Real;
begin
V1:=257.912;
V2:=V1/2;
R := Frac(V2); { 0.456 }
R:=trunc(V2);{123}
end;
bonne prog
Commenter la réponse de jlen100

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.