Differenze tra le versioni di "Convertire un numero da rappresentazione binaria in decimale"
Da Gambas-it.org - Wikipedia.
| Riga 6: | Riga 6: | ||
= (1 * 128) + (0 * 64) + (1 * 32) + (0 * 16) + (1 * 8) + (0 * 4) + (1 * 2) + (0 * 1) = | = (1 * 128) + (0 * 64) + (1 * 32) + (0 * 16) + (1 * 8) + (0 * 4) + (1 * 2) + (0 * 1) = | ||
| − | = 128 + 0 + 32 + 0 + 8 + 0 + 2 = | + | = 128 + 0 + 32 + 0 + 8 + 0 + 2 + 0 = |
= <FONT color=#B22222>170</font> | = <FONT color=#B22222>170</font> | ||
Versione delle 01:25, 21 apr 2015
Per convertire un numero, espresso in formato a rappresentazione binaria, nella corrispondente rappresentazione decimale, bisogna moltiplicare le cifre del numero binario per le potenze decrescenti di 2, e successivamente sommare i risultati.
Convertiamo, per esempio il numero binario 10101010:
(1 * 27) + (0 * 26) + (1 * 25) + (0 * 24) + (1 * 23) + (0 * 22) + (1 * 21) + (0 * 20) = = (1 * 128) + (0 * 64) + (1 * 32) + (0 * 16) + (1 * 8) + (0 * 4) + (1 * 2) + (0 * 1) = = 128 + 0 + 32 + 0 + 8 + 0 + 2 + 0 = = 170
Per ottenere la conversione in Gambas potremo utilizzare questo codice:
Public Sub Main()
Dim s As String
Dim bb As Byte[]
Dim j As Byte
Dim l As Long
s = InputBox("Immetti un numero in formato binario:")
bb = Byte[].FromString(s).Reverse()
For j = 0 To bb.Max
l += Val(Chr(bb[j])) * (2 ^ j)
Next
Print "Il corrispondente valore decimale è: "; l
End
