Differenze tra le versioni di "Arrotondamento di un numero con virgola mobile"

Da Gambas-it.org - Wikipedia.
Riga 54: Riga 54:
  
  
==Arrotondamento senza funzioni specifiche==
+
==Arrotondamento senza funzioni specifiche di arrotondamento==
E' possibile effettuare l'arrotondamento senza alcuna funzione, come in questo esempio:
+
E' possibile effettuare l'arrotondamento senza alcuna funzione appositamente dedicata all'arrotondamento, ma solo utilizzando la funzione ''Fix()'' per eliminare la parte decimale.
 +
 
 +
Mostriamo un esempio, nel quale il valore sarà arrotondato all'unità superiore, qualora il decimale a destra della virgola sia almeno pari a .5:
 
  '''Public''' Sub Main()
 
  '''Public''' Sub Main()
 
    
 
    
   Dim a As Float = 26.123
+
   Dim f As Float = 4.543
 +
  Dim i As Integer
 +
 
 +
  i = Fix(f + 0.5)
 
   
 
   
<FONT Color=gray>' ''Arrotondamento all'unità superiore <SPAN Style="text-decoration:underline">se</span> ci sono dei decimali:''</font>
+
   Print i
  If a > Fix(a) Then a = Fix(a) + 1
 
 
   Print "a = "; a
 
 
    
 
    
 
  '''End'''
 
  '''End'''
 
In console avremo:
 
<BR>a = 27
 

Versione delle 18:02, 21 feb 2016

Se vogliamo ottenere un arrotondamento di un numero con la virgola, possiamo utilizzare la funzione Round() oppure la funzione Ceil().


Uso della funzione Round()

La funzione Round() arrotonda un numero al più vicino intero a seconda di alcuni casi.


Arrotondamento all'unità superiore

Se il primo numero decimale è uguale o supriore a 5, si avrà un arrotondamento all'unità superiore:

Public Sub Button1_Click()

 Dim f As Float

  f = Round(87326.5)

  Print f

End

In console avremo:
87327


Arrotondamento all'unità inferiore

Se il primo numero decimale è inferiore a 5, si avrà un arrotondamento all'unità inferiore:

Public Sub Button1_Click()

 Dim f As Float
 
  f = Round(87326.4999999)

  Print f

End

In console avremo:
87326


Uso della funzione Ceil()

E', poi, possibile molto semplicemente utilizzare anche la funzione aritmetica Ceil(): se il numero è positivo e contiene dei decimali, allora tale funzione restituirà un numero arrotondato all'unità intera superiore.

Public Sub Main()  

 Print Ceil(1.49)  
     
End

in console si avrà il risultato:
2


Arrotondamento senza funzioni specifiche di arrotondamento

E' possibile effettuare l'arrotondamento senza alcuna funzione appositamente dedicata all'arrotondamento, ma solo utilizzando la funzione Fix() per eliminare la parte decimale.

Mostriamo un esempio, nel quale il valore sarà arrotondato all'unità superiore, qualora il decimale a destra della virgola sia almeno pari a .5:

Public Sub Main()
 
 Dim f As Float = 4.543
 Dim i As Integer
  
  i = Fix(f + 0.5)

  Print i
 
End