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...')
(Nessuna differenza)

Versione delle 17:40, 4 mag 2013

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 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 Button1_Click()

 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