Section courante

A propos

Section administrative du site

FRAC

Fraction
Delphi/Kylix/Lazarus System

Syntaxe

Function Frac(X:Extended):Extended;

Paramètres

Nom Description
X Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter

Description

Cette fonction permet de retourne la partie décimale d'un nombre réel.

Exemple

Voici un exemple montrant l'utilisation de «Frac» dans Delphi :

  1. Program FracSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.      
  6. BEGIN
  7.  WriteLn('Frac(0.0)=',Frac(0.0):1:1);
  8.  WriteLn('Frac(1.0)=',Frac(1.0):1:1);
  9.  WriteLn('Frac(5.0)=',Frac(5.0):1:1);
  10.  WriteLn('Frac(10.0)=',Frac(10.0):1:1);
  11.  WriteLn('Frac(10.1)=',Frac(10.1):1:1);
  12.  WriteLn('Frac(10.2)=',Frac(10.2):1:1);
  13.  WriteLn('Frac(10.3)=',Frac(10.3):1:1);
  14.  WriteLn('Frac(10.4)=',Frac(10.4):1:1);
  15.  WriteLn('Frac(10.5)=',Frac(10.5):1:1);
  16.  WriteLn('Frac(10.6)=',Frac(10.6):1:1);
  17.  WriteLn('Frac(10.7)=',Frac(10.7):1:1);
  18.  WriteLn('Frac(10.8)=',Frac(10.8):1:1);
  19.  WriteLn('Frac(10.9)=',Frac(10.9):1:1);
  20.  WriteLn('Frac(10.123)=',Frac(10.123):1:3);
  21.  WriteLn('Frac(10.123456789)=',Frac(10.123456789):1:10);
  22. END.

on obtiendra le résultat suivant :

Frac(0.0)=0.0
Frac(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

Voir également

Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Int
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Round
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Trunc

Dernière mise à jour : Mercredi, le 18 février 2015