RoundToCeil (rtl)
De Wiki1000
(Différences entre les versions)
(Page créée avec « <source lang='delphi'>Function RoundToCeil(X:double; dec:Integer):double;</source> Cette fonction retourne la valeur arrondie à l'entier supérieur d'un nombre flottant. {… ») |
|||
| Ligne 14 : | Ligne 14 : | ||
|Nombre de décimales | |Nombre de décimales | ||
|} | |} | ||
| + | |||
| + | {{Tip|Cette fonction arrondi à dec+4 décimales puis applique la fonction ceil}} | ||
Exemple | Exemple | ||
| Ligne 21 : | Ligne 23 : | ||
begin | begin | ||
d := 1.731; | d := 1.731; | ||
| − | r := RoundToCeil(d,2); // | + | r := RoundToCeil(d,2); // r = 1.74 |
| + | |||
| + | d := 0.900001; | ||
| + | r := RoundToCeil(d,2); // r = 0.91 | ||
| + | |||
| + | d := 0.9000001; | ||
| + | r := RoundToCeil(d,2); // r = 0.90 | ||
| + | |||
| + | d := 0.9000005; | ||
| + | r := RoundToCeil(d,2); // r = 0.90 | ||
| + | |||
| + | d := 0.9000006; | ||
| + | r := RoundToCeil(d,2); // r = 0.91 | ||
end; | end; | ||
</source> | </source> | ||
Version du 27 juillet 2012 à 07:56
Function RoundToCeil(X:double; dec:Integer):double;
Cette fonction retourne la valeur arrondie à l'entier supérieur d'un nombre flottant.
| Result | La valeur arrondie à l'entier supérieur de l'argument au nombre de décimales. |
| X | Nombre. |
| dec | Nombre de décimales |
|
Tip : Cette fonction arrondi à dec+4 décimales puis applique la fonction ceil |
Exemple
var d,r:double; begin d := 1.731; r := RoundToCeil(d,2); // r = 1.74 d := 0.900001; r := RoundToCeil(d,2); // r = 0.91 d := 0.9000001; r := RoundToCeil(d,2); // r = 0.90 d := 0.9000005; r := RoundToCeil(d,2); // r = 0.90 d := 0.9000006; r := RoundToCeil(d,2); // r = 0.91 end;
Voir aussi:
