RoundToDecimales (rtl)

De Wiki1000
(Différences entre les versions)
 
Ligne 21 : Ligne 21 :
 
begin
 
begin
 
   d := 1.732;
 
   d := 1.732;
   r := RoundToDecimales(d,2); // c = 1.73
+
   r := RoundToDecimales(d,2); // r = 1.73
 +
 
 
   d := 1.735;
 
   d := 1.735;
   r := RoundToDecimales(d,2); // c = 1.74
+
   r := RoundToDecimales(d,2); // r = 1.74
 +
 
 
   d := 1.738;
 
   d := 1.738;
   r := RoundToDecimales(d,2); // c = 1.74
+
   r := RoundToDecimales(d,2); // r = 1.74
 
end;
 
end;
 
</source>
 
</source>

Version actuelle en date du 27 juillet 2012 à 08:07

Function RoundToDecimales(X:double; dec:Integer):double;

Cette fonction retourne la valeur arrondie d'un nombre flottant.

Result La valeur arrondie de l'argument au nombre de décimales.
X Nombre.
dec Nombre de décimales

Exemple

var d,r:double; 
begin
  d := 1.732;
  r := RoundToDecimales(d,2); // r = 1.73
 
  d := 1.735;
  r := RoundToDecimales(d,2); // r = 1.74
 
  d := 1.738;
  r := RoundToDecimales(d,2); // r = 1.74
end;

Voir aussi:

Développement DSMDéveloppement DSM

Outils personnels