Differenze tra le versioni di "Convertire un numero da rappresentazione ottale in decimale"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Per convertire un numero, espresso in formato a rappresentazione ottale, nella corrispondente rappresentazione ''decimale'', bisogna moltiplicare le cifre del numero ottale pe...') |
|||
| Riga 1: | Riga 1: | ||
| − | Per convertire un numero, espresso in formato a rappresentazione ottale, nella corrispondente rappresentazione ''decimale'', bisogna moltiplicare le cifre del numero ottale per le potenze decrescenti di 8, e successivamente sommare i risultati. | + | Per convertire un numero, espresso in formato a rappresentazione ''ottale'', nella corrispondente rappresentazione ''decimale'', bisogna moltiplicare le cifre del numero ottale per le potenze decrescenti di 8, e successivamente sommare i risultati. |
| − | Convertiamo, per esempio il numero ottale 123 nel corrispondente decimale: | + | Convertiamo, per esempio il numero ''ottale'' 123 nel corrispondente ''decimale'': |
(1 * 8<SUP>2</sup>) + (2 * 8<SUP>1</sup>) + (3 * 8<SUP>0</sup>) = | (1 * 8<SUP>2</sup>) + (2 * 8<SUP>1</sup>) + (3 * 8<SUP>0</sup>) = | ||
Versione delle 05:46, 17 dic 2013
Per convertire un numero, espresso in formato a rappresentazione ottale, nella corrispondente rappresentazione decimale, bisogna moltiplicare le cifre del numero ottale per le potenze decrescenti di 8, e successivamente sommare i risultati.
Convertiamo, per esempio il numero ottale 123 nel corrispondente decimale:
(1 * 82) + (2 * 81) + (3 * 80) = = (1 * 64) + (2 * 8) + (3 * 1) = = 64 + 16 + 3 = = 83
Per ottenere la conversione in Gambas potremo utilizzare questo codice: |1|
Public Sub Main()
Dim a As String
Dim b, i, InteroFinale As Integer
Dim Esponente, crt As Integer
a = InputBox("Immetti un numero in formato ottale:")
For b = Len(a) To 1 Step -1
crt = Int(Val(Mid(a, b, 1)))
i = crt * 8 ^ Esponente
Esponente += 1
InteroFinale += i
Next
Print InteroFinale
End
