Transformation de Base N
Contenu du snippet
# Conversion entre la base 10 et une base entre 2 et 62
proc Decimal2Base {nombre base} {
set nb {}
set n {0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z \
a b c d e f g h i j k l m n o p q r s t u v w x y z}
while {$nombre} {
set nb [lindex $n [expr {$nombre % $base}]]$nb
set nombre [expr {$nombre / $base}]
}
return $nb
}
proc Base2Decimal {nombre base} {
set n {0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z \
a b c d e f g h i j k l m n o p q r s t u v w x y z}
set nb 0
foreach chiffre [split $nombre ""] {
set m [lsearch $n $chiffre]
if {$m < 0 || $m >= $base} {
puts "Le chiffre $chiffre n'existe pas en base $base"
break
}
set nb [expr {$nb*$base + $m}]
}
return $nb
}
# Tests
puts [Decimal2Base 204 2]
puts [Base2Decimal 11001100 2]
puts [Decimal2Base 204 16]
puts [Base2Decimal CC 16]
puts [Decimal2Base 41204444 60]
Compatibilité : Tcl
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.