Differenze tra le versioni di "Arrotondare un Intero al più prossimo valore inferiore multiplo di 2, 4, 8, 16, 32 e 64"
Da Gambas-it.org - Wikipedia.
| Riga 4: | Riga 4: | ||
* ''Intero'' è l'Intero da arrotondare; | * ''Intero'' è l'Intero da arrotondare; | ||
* ''Numero'' è il numero naturale intero di cui il valore (al quale l'Intero sarà arrotondato come risultato della formula) è un multiplo. | * ''Numero'' è il numero naturale intero di cui il valore (al quale l'Intero sarà arrotondato come risultato della formula) è un multiplo. | ||
| − | |||
Mostriamo un esempio pratico, nel quale si arrotonderà l'Intero 15 al suo più prossimo valore inferiore multiplo di 4 (ossia 12): | Mostriamo un esempio pratico, nel quale si arrotonderà l'Intero 15 al suo più prossimo valore inferiore multiplo di 4 (ossia 12): | ||
| − | + | Public Sub Main() | |
| − | + | Dim multiplo As Integer | |
multiplo = 15 And (Not 3) | multiplo = 15 And (Not 3) | ||
| Riga 15: | Riga 14: | ||
Print multiplo | Print multiplo | ||
| − | + | End | |
Versione attuale delle 16:05, 1 lug 2024
La formula per arrotondare un Intero al suo più prossimo valore inferiore multiplo di 2, 4, 8, 16, 32 e 64 è la seguente:
Intero And (Not (Numero - 1))
laddove:
- Intero è l'Intero da arrotondare;
- Numero è il numero naturale intero di cui il valore (al quale l'Intero sarà arrotondato come risultato della formula) è un multiplo.
Mostriamo un esempio pratico, nel quale si arrotonderà l'Intero 15 al suo più prossimo valore inferiore multiplo di 4 (ossia 12):
Public Sub Main() Dim multiplo As Integer multiplo = 15 And (Not 3) Print multiplo End
