Differenze tra le versioni di "Verificare se un numero è una potenza di 2"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per verificare se un numero è una potenza di 2, si può utilizzare il seguente codice: '''Public''' Sub Main() Dim numero, m, c As Integer Dim s1, s2 As String...") |
|||
| Riga 15: | Riga 15: | ||
Wend | Wend | ||
| − | s1 = "Il | + | s1 = "Il numero " & numero |
| − | s2 = "è una potenza di 2" | + | s2 = " è una potenza di 2" |
If c = 1 Then | If c = 1 Then | ||
Print s1; s2 | Print s1; s2 | ||
Else | Else | ||
| − | Print s1; "non "; s2 | + | Print s1; " non"; s2 |
Endif | Endif | ||
'''End''' | '''End''' | ||
Versione delle 05:52, 6 lug 2016
Per verificare se un numero è una potenza di 2, si può utilizzare il seguente codice:
Public Sub Main()
Dim numero, m, c As Integer
Dim s1, s2 As String
m = 1
numero = 16
While m > 0
If (numero And m) > 0 Then
Inc c
Endif
m = m * CInt(2 * 1)
Wend
s1 = "Il numero " & numero
s2 = " è una potenza di 2"
If c = 1 Then
Print s1; s2
Else
Print s1; " non"; s2
Endif
End
