Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Arrondis décimaux
#1
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]
}


irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
  Reply
#2
Très intéressant comme morceau de code pour afficher des arrondies avec décimales :)
  Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)