Differenze tra le versioni di "Sapere quanti bit posti ad 1 sono presenti in un numero"
Da Gambas-it.org - Wikipedia.
Riga 44: | Riga 44: | ||
=Note= | =Note= | ||
− | [1] Questa soluzione è stata proposta dal membro [http://www.gambas-it.org/smf/index.php?action=profile;u=1249 Gianluigi] del forum gambas-it.org | + | [1] Questa soluzione è stata proposta dal membro [http://www.gambas-it.org/smf/index.php?action=profile;u=1249 Gianluigi] del forum www.gambas-it.org |
Versione delle 09:47, 20 nov 2016
Per sapere quanti bit posti ad 1 sono presenti in un numero, è possibile utilizzare alcune modalità.
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 1] Dim n, b, c As Integer n = 165 Print "La rappresentazione binaria di "; n; " è "; While n > 0 b = n Mod 2 Print b; If b <> 0 Then Inc c n = n \ 2 Wend Print " e contiene "; c; " bit posti a 1" End
Note
[1] Questa soluzione è stata proposta dal membro Gianluigi del forum www.gambas-it.org