Differenze tra le versioni di "Sapere se un numero è pari o dispari"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Per sapere se un numero è pari è sufficiente utilizzare la funzione ''Mod'', la quale calcola il resto del quoziente di due numeri interi. Poiché una caratteristica dei nu...') |
|||
| Riga 1: | Riga 1: | ||
| − | Per sapere se un numero è pari è | + | Per sapere se un numero è pari, è possibile utilizzare almeno due modalità: |
| + | |||
| + | |||
| + | ===Uso della funzione ''Mod''=== | ||
| + | L'uso della funzione ''Mod()'' calcola il resto del quoziente di due numeri interi. | ||
Poiché una caratteristica dei numeri pari è che, divisi per 2, essi restituiscono sempre il resto del quoziente pari a zero, se il calcolo del resto del quoziente ottenuto con la funzione ''Mod'' è uguale a zero, allora il numero sarà pari, altrimenti sarà dispari: | Poiché una caratteristica dei numeri pari è che, divisi per 2, essi restituiscono sempre il resto del quoziente pari a zero, se il calcolo del resto del quoziente ottenuto con la funzione ''Mod'' è uguale a zero, allora il numero sarà pari, altrimenti sarà dispari: | ||
Esempio: | Esempio: | ||
| − | '''Public''' Sub | + | '''Public''' Sub Main() |
Dim s As String | Dim s As String | ||
| Riga 16: | Riga 20: | ||
Print "Il numero è Dispari." | Print "Il numero è Dispari." | ||
Endif | Endif | ||
| + | |||
| + | '''End''' | ||
| + | |||
| + | |||
| + | ===Uso dell'operatore ''AND''=== | ||
| + | Si porrà il valore da verificare con l'operatore ''AND'' ed il valore ''1'', agendo così sui bit. | ||
| + | |||
| + | Esempio: | ||
| + | '''Public''' Sub Main() | ||
| + | |||
| + | Dim j As Byte | ||
| + | |||
| + | |||
| + | For j = 1 To 20 | ||
| + | If j And 1 Then | ||
| + | Print j, "numero dispari !" | ||
| + | Else | ||
| + | Print j, "numero pari !" | ||
| + | Endif | ||
| + | Next | ||
'''End''' | '''End''' | ||
Versione delle 09:44, 20 gen 2014
Per sapere se un numero è pari, è possibile utilizzare almeno due modalità:
Uso della funzione Mod
L'uso della funzione Mod() calcola il resto del quoziente di due numeri interi.
Poiché una caratteristica dei numeri pari è che, divisi per 2, essi restituiscono sempre il resto del quoziente pari a zero, se il calcolo del resto del quoziente ottenuto con la funzione Mod è uguale a zero, allora il numero sarà pari, altrimenti sarà dispari:
Esempio:
Public Sub Main()
Dim s As String
Dim i As Integer
s = InputBox("Immettere un numero intero:")
If Val(s) Mod 2 = 0 Then
Print "Il numero è Pari."
Else
Print "Il numero è Dispari."
Endif
End
Uso dell'operatore AND
Si porrà il valore da verificare con l'operatore AND ed il valore 1, agendo così sui bit.
Esempio:
Public Sub Main()
Dim j As Byte
For j = 1 To 20
If j And 1 Then
Print j, "numero dispari !"
Else
Print j, "numero pari !"
Endif
Next
End
