Section courante

A propos

Section administrative du site

FRAC

 Fraction
Virtual Pascal System

Syntaxe

Function Frac(n:Real):Extended;

Paramètres

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

Description

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

Exemple

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

  1. Program ForwardSamples;
  2.              
  3. Procedure A;Forward;
  4. Function B:Boolean;Forward;
  5.             
  6. Procedure C;Begin
  7.  A;
  8.  If(B)Then WriteLn('C');
  9. End;
  10.             
  11. Procedure A;Begin
  12.  WriteLn('A');
  13. End;
  14.              
  15. Function B:Boolean;Begin
  16.  WriteLn('B');
  17.  B:=True;
  18. End;
  19.              
  20. BEGIN
  21.  C; 
  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

Dernière mise à jour : Vendredi, le 29 juillet 2016