Arrondis décimaux

[CrazyCat]

En faisant Conversion.tcl, je me suis rendu compte que les fonctions d'arrondis ne retournent que des nombres entiers, j'ai donc créé ces fonctions qui permettent d'avoir des arrondis avec des décimales.

La procédure ceilfloor est uniquement là pour ne pas répéter du code inutilement, mais elle peut être utilisée directement bien que ça ne soit pas recommandé.

tcl

proc decround {number {dec 2}} {
   return [format "%.${dec}f" $number]
}
 
proc ceilfloor {number dec {mode "ceil"}} {
   set number [expr $number * pow(10, $dec)]
   set number [expr ${mode}($number)]
   return [expr $number / pow(10, $dec)]
}
 
proc decfloor {number {dec 2}} {
   return [::conv::ceilfloor $number $dec floor]
}
 
proc decceil {number {dec 2}} {
   return [::conv::ceilfloor $number $dec]
}

[BdS]

Très intéressant comme morceau de code pour afficher des arrondies avec décimales :)