Differenze tra le versioni di "Invertire le cifre di un numero intero"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Se si intende invertire le cifre di un numero intero, ossia partendo ad esempio dal numero 12345 ottenere il numero 54321, si può adottare il seguente codice, il quale consid...") |
|||
| Riga 2: | Riga 2: | ||
<BR>Il dato restituito sarà di tipo numerico, quindi <SPAN Style="text-decoration:underline">non</span> di tipo Stringa. | <BR>Il dato restituito sarà di tipo numerico, quindi <SPAN Style="text-decoration:underline">non</span> di tipo Stringa. | ||
| − | + | Public Sub Main() | |
| − | + | Dim numero, numero_invertito As Integer | |
numero = 123456789 | numero = 123456789 | ||
| Riga 16: | Riga 16: | ||
Print "Numero invertito: \e[31m"; numero_invertito; "\e[0m\n" | Print "Numero invertito: \e[31m"; numero_invertito; "\e[0m\n" | ||
| − | + | End | |
Versione attuale delle 16:50, 1 lug 2024
Se si intende invertire le cifre di un numero intero, ossia partendo ad esempio dal numero 12345 ottenere il numero 54321, si può adottare il seguente codice, il quale considera il numero originario come somma di cifre moltiplicate per potenze decrescenti di 10.
Il dato restituito sarà di tipo numerico, quindi non di tipo Stringa.
Public Sub Main()
Dim numero, numero_invertito As Integer
numero = 123456789
While numero > 0
numero_invertito *= 10
numero_invertito += numero Mod 10
numero /= 10
Wend
Print "Numero invertito: \e[31m"; numero_invertito; "\e[0m\n"
End
