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