Differenze tra le versioni di "Sapere quanti bit posti ad 1 sono presenti in un numero"
Da Gambas-it.org - Wikipedia.
Riga 43: | Riga 43: | ||
Dim n, b, c As Integer | Dim n, b, c As Integer | ||
+ | Dim bb As New Byte[] | ||
− | n = | + | n = 23750 |
− | Print "La rappresentazione binaria di "; n; " è "; | + | Print "La rappresentazione binaria di "; n; " è "; |
While n > 0 | While n > 0 | ||
b = n Mod 2 | b = n Mod 2 | ||
− | + | bb.Push(b) | |
If b <> 0 Then Inc c | If b <> 0 Then Inc c | ||
n = n \ 2 | n = n \ 2 | ||
Wend | Wend | ||
− | Print " e contiene "; c; " bit | + | |
+ | bb.Reverse() | ||
+ | |||
+ | For b = 0 To bb.Max | ||
+ | Print bb[b]; | ||
+ | Next | ||
+ | |||
+ | Print " e contiene "; c; " bit a 1" | ||
'''End''' | '''End''' |
Versione delle 18:06, 20 nov 2016
Per sapere quanti bit posti ad 1 sono presenti in un numero, è possibile utilizzare alcune modalità.
Indice
Uso della funzione specifica BTst( )
Innanzitutto mostriamo una soluzione semplice utilizzando la funzione specifica BTst( ): [nota 1]
Public Sub Main() Dim numero, i, bitauno As Byte numero = 165 For i = 0 To 7 If BTst(numero, i) = True Then Inc bitauno Next Print "Il numero di bit a uno è: "; bitauno End
Uso delle funzioni Bin( ) e Mid( )
Public Sub Main() Dim i, numero, c As Integer Dim binario As String numero = 1234567890 binario = Bin(numero) For i = 1 To len(binario) If Mid(binario, i, 1) = "1" Then Inc c Next Print numero; " contiene "; c; " bit posti a 1 ("; binario; ")" End
Uso dell'operatore aritmetico Mod
Public Sub Main() [nota 2] Dim n, b, c As Integer Dim bb As New Byte[] n = 23750 Print "La rappresentazione binaria di "; n; " è "; While n > 0 b = n Mod 2 bb.Push(b) If b <> 0 Then Inc c n = n \ 2 Wend bb.Reverse() For b = 0 To bb.Max Print bb[b]; Next Print " e contiene "; c; " bit a 1" End
Note
[1] Questa soluzione è stata proposta dal membro TopFuel del forum www.gambas-it.org
[2] Questa soluzione è stata proposta dal membro Gianluigi del forum www.gambas-it.org