Sapere quanti bit posti ad 1 sono presenti in un numero

Da Gambas-it.org - Wikipedia.
Versione del 23 set 2016 alle 19:49 di Vuott (Discussione | contributi) (Creata pagina con "Per sapere quanti bit posti ad 1 sono presenti in un numero, è sufficiente utilizzare il seguente semplice codice: '''Public''' Sub Main() Dim i, numero, c As Integer...")

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

Per sapere quanti bit posti ad 1 sono presenti in un numero, è sufficiente utilizzare il seguente semplice codice: 

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
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Sapere_quanti_bit_posti_ad_1_sono_presenti_in_un_numero&oldid=20909"