20/08/2021, 12:34
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
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]
}