[Delphi] Fractions, additions, soustractions, mulitplications, divisions, simplification.

Suite à une question posée sur le forum Pascal, voici un unité pour le calcul des fractions. (contrairement à l'exemple donné dans la discussion, cette unité contient la Division de fractions).

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.

* 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.

* Vous pouvez forcer le mode avec les fonctions (et non les opérateurs) en définissant une directive "CONSOLE" avant le uses Fractions.