Messages : 2,281
Sujets : 178
Inscription : Apr 2004
Je ne suis pas tout à fait d'accord. Il s'agit là du calcul binaire et non SI, donc les unités sont Kio, Mio, Tio et Pio.
Messages : 921
Sujets : 93
Inscription : Jul 2007
Niveau d’avertissement :
0%
Tu as entièrement raison, n'hésite pas à corriger / améliorer.
Messages : 2,281
Sujets : 178
Inscription : Apr 2004
07/10/2013, 23:10
(Modification du message : 07/10/2013, 23:13 par CrazyCat.)
J'aurais bien vu:
TCL
proc octet_formatting {value {SI 1}} {
if { $SI == 1 } {
set base 1024
set u { Kio Gio Tio Pio }
} else {
set base 1000
set u { Ko Go To Po }
}
if { $value < $base } { return "$value octets" }
foreach unit $u {
set value [expr {$value / $base.} ]
if { $value < $base } {
return "[format %1.2f $value]$unit"
}
}
}
Et pis voila