Differenze tra le versioni di "Arrotondare un Intero al successivo multiplo di 2, 4, 8, 16, 32 e 64"
Da Gambas-it.org - Wikipedia.
(Una versione intermedia di uno stesso utente non è mostrata) | |||
Riga 6: | Riga 6: | ||
− | Mostriamo un esempio pratico, nel quale si arrotonderà l'Intero 13 al suo successivo più prossimo multiplo di 4 ( | + | Mostriamo un esempio pratico, nel quale si arrotonderà l'Intero 13 al suo successivo più prossimo multiplo di 4 (ossia 16): |
− | + | Public Sub Main() | |
− | + | Dim multiplo As Integer | |
multiplo = (13 + 3) And Not 3 | multiplo = (13 + 3) And Not 3 | ||
Riga 15: | Riga 15: | ||
Print multiplo | Print multiplo | ||
− | + | End |
Versione attuale delle 16:05, 1 lug 2024
La formula per arrotondare un Intero al suo successivo valore multiplo di 2, 4, 8, 16, 32 e 64 è la seguente:
((Intero) + (Numero-1)) 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 13 al suo successivo più prossimo multiplo di 4 (ossia 16):
Public Sub Main() Dim multiplo As Integer multiplo = (13 + 3) And Not 3 Print multiplo End