Titolo: Conversione da binario a decimale e viceversa
Categoria: Codice |
|
Ultimo Aggiornamento: 05/05/04 |
Ecco due metodi per convertire un numero da binario a decimale e viceversa. Il numero da convertire è il parametro passato. Il numero binario è sempre trattato come stringa.
` DaBinarioADecimale
$lunghezza_l:=Length($1)
$0:=0
For ($i;0;($lunghezza_l-1))
If ($1[[$lunghezza_l-$i]]="1")
$0:=$0 ?+ $i
End ifEnd for`DaDecimaleABinario
$0:=""
For ($i;0;31)
If ($1 ?? $i)
$0:="1"+$0
Else $0:="0"+$0
End ifEnd for
Inviato da: PierPaolo Sichera |
|
Visite: 12611 |
Se accedi con utente e password, puoi aggiungere dei commenti.