FRAC |
Fraction |
|---|---|
| Turbo Pascal 1+ | System |
Syntaxe
| Function Frac(n:Real):Real; |
Paramètres
| Nom | Description |
|---|---|
| n | Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter |
Description
Cette fonction permet de retourner la partie décimal d'un nombre réel.
Remarque
- Le paramètre n est une expression de type réel. Le résultat est la partie fractionnaire de n, c'est-à-dire «Frac(n) = n - Int(n)».
Exemple
Voici un exemple montrant l'utilisation de «Frac» dans Turbo Pascal :
- Program FracSamples;
-
- BEGIN
- WriteLn('Frac(0.0)=',Frac(0.0):1:1);
- WriteLn('Frac(1.0)=',Frac(1.0):1:1);
- WriteLn('Frac(5.0)=',Frac(5.0):1:1);
- WriteLn('Frac(10.0)=',Frac(10.0):1:1);
- WriteLn('Frac(10.1)=',Frac(10.1):1:1);
- WriteLn('Frac(10.2)=',Frac(10.2):1:1);
- WriteLn('Frac(10.3)=',Frac(10.3):1:1);
- WriteLn('Frac(10.4)=',Frac(10.4):1:1);
- WriteLn('Frac(10.5)=',Frac(10.5):1:1);
- WriteLn('Frac(10.6)=',Frac(10.6):1:1);
- WriteLn('Frac(10.7)=',Frac(10.7):1:1);
- WriteLn('Frac(10.8)=',Frac(10.8):1:1);
- WriteLn('Frac(10.9)=',Frac(10.9):1:1);
- WriteLn('Frac(10.123)=',Frac(10.123):1:3);
- WriteLn('Frac(10.123456789)=',Frac(10.123456789):1:10);
- END.
on obtiendra le résultat suivant :
Frac(0.0)=0.0Frac(1.0)=0.0
Frac(5.0)=0.0
Frac(10.0)=0.0
Frac(10.1)=0.1
Frac(10.2)=0.2
Frac(10.3)=0.3
Frac(10.4)=0.4
Frac(10.5)=0.5
Frac(10.6)=0.6
Frac(10.7)=0.7
Frac(10.8)=0.8
Frac(10.9)=0.9
Frac(10.123)=0.123
Frac(10.123456789)=0.1234567890
Référence
Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 188.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1235.
Dernière mise à jour : Dimanche, le 25 janvier 2015