Differenze tra le versioni di "Sapere se un numero è pari o dispari"

Da Gambas-it.org - Wikipedia.
Riga 10: Riga 10:
 
  '''Public''' Sub Main()
 
  '''Public''' Sub Main()
 
   
 
   
−
   Dim s As String
+
   Dim j As Byte
−
  Dim i As Integer
 
 
   
 
   
−
  s = InputBox("Immettere un numero intero:")
 
 
   
 
   
−
   If Val(s) Mod 2 = 0 Then
+
   For j = 1 To 20
−
    Print "Il numero è Pari."
+
    If j Mod 2 = 0 Then
 +
      Print j, "numero dispari !"
 
     Else
 
     Else
−
    Print "Il numero è Dispari."
+
      Print j, "numero pari !"
−
  Endif
+
    Endif
 
   
 
   
 
  '''End'''
 
  '''End'''

Versione delle 09:47, 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 j As Byte


  For j = 1 To 20
   If j Mod 2 = 0 Then
     Print j, "numero dispari !"
   Else
     Print j, "numero pari !"
   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
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Sapere_se_un_numero_è_pari_o_dispari&oldid=14685"