Fractions est une unité pour Delphi 6 à plus qui permet donc d'effectuer des calculs sur les fractions.
Addition, soustraction, multiplication, division, simplification, sous cette forme :
R = A/B + C/D
R = A/B - C/D
R = A/B * C/D
R = A/B / C/D
R = a + B/C
R = a - B/C
R = a * B/C
R = a / B/C
R = a * B/C - d * E/F + G/H * i
tous sont réalisables.
Avec delphi 2009 ou mieux, TFraction fait appel aux opérateur surchargé et se comporte comme n'importe quel type scalaire (integer, byte, etc) l’écriture du code est donc simplifiée.
Source / Exemple :
function FractionCreate(aNumerateur, aDenominateur: integer): TFraction;
function FractionSimplify(A: TFraction): TFraction;
function FractionToFloat(A: TFraction): Float;
function FractionToStr(A: TFraction): String;
function StrToFraction(A: string): TFraction;
function IntToFraction(A: integer): TFraction;
function FractionAdd(A,B: TFraction): TFraction;
function FractionSubtract(A,B: TFraction): TFraction;
function FractionMultiply(A,B: TFraction): TFraction;
function FractionDivide(A,B: TFraction): TFraction;
Conclusion :
Utilisez la demo 2009 à partir de Delphi 2009, sinon utilisez la démo en mode console avec une version antérieure qui se trouve dans le répertoire DemoD7
28 janv. 2013 à 19:09
28 janv. 2013 à 11:06
toutefois, j' aurai aimé plus de commentaires dans l' unité fractions (utilisation de "class function/class operator") ...
a+
27 janv. 2013 à 16:11
j'adore ... au delà de l'utilité directe du code c'est plus l'exemple sur la surcharge d'opérateurs et l'utilisation de la compilation conditionnelle que j'apprécie.
Un bel exemple comme on les aimes ... Bravo !
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.