Algoritmi - Algoritmo da decimale a binario e viceversa

Forum - Algoritmi - Algoritmo da decimale a binario e viceversa - Pagina 2

Pagine: [ 1 2 3 ]

tuttodiMC (Normal User)
Expert

Messaggi: 327
Iscritto: 29/10/2012

Postato alle 18:48
Domenica, 13/01/2013

Ottimo.

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 18:56
Domenica, 13/01/2013

Testo quotato

Postato originariamente da tuttodiMC:

Io avevo già provato a farlo

E cosa avevi scritto ?

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

tuttodiMC (Normal User)
Expert

Messaggi: 327
Iscritto: 29/10/2012

Postato alle 19:04
Domenica, 13/01/2013

Codice sorgente - presumibilmente Algoritmi

for i= 1, # t, -1 do
io.write(t[i])
end

ma non scrive un bel niente.
# t indica l'indice massimo della tabella partendo da 1.

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 19:06
Domenica, 13/01/2013

Guarda un esempio in C (tra i tantissimi che si trovano su internet se solo si cercasse) ...

http://brutuswolf.altervista.org/blog/2010/09/22/convertit ...

Ultimo (Member)
Guru

Messaggi: 877
Iscritto: 22/05/2010

Postato alle 19:32
Domenica, 13/01/2013

Non è fatto da me.......

Codice sorgente - presumibilmente VB.NET

'Per convertire un numero intero in numero binario possiamo utilizzare la classe BitArray che converte un array di 'numeri in un array di bit. Per rappresentare la sequenza di bit, poi, utilizziamo una stringa e, per separare 'visivamente ogni byte, aggiungiamo anche uno spazio separatore:
 
 Dim numero As Integer = 32767 
Dim numDecimale() As Integer = {numero} 
Dim numBinario As New BitArray(numDecimale) 
Dim str As String = "" 
Dim contaBit As Integer = 0 
For i As Integer = (numBinario.Count - 1) To 0 Step -1 
    If contaBit = 8 Then 
        str &= " " 
        contaBit = 0 
    End If 
    If numBinario.Item(i) = False Then 
        str &= "0" 
    Else 
        str &= "1" 
    End If 
    contaBit += 1 
Next 
MessageBox.Show(str)

If ok Then GOTO Avanza else GOTO Inizia

tuttodiMC (Normal User)
Expert

Messaggi: 327
Iscritto: 29/10/2012

Postato alle 19:49
Domenica, 13/01/2013

Ok ho risolto lo scrivere i numeri. Adesso come faccio per far fare una ripetizione in meno al while?

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 20:18
Domenica, 13/01/2013

L'ultimo post non si è capito proprio ...

tuttodiMC (Normal User)
Expert

Messaggi: 327
Iscritto: 29/10/2012

Postato alle 13:44
Domenica, 03/02/2013

Allora il convertitore decimale-binario è fatto. Adesso da dove dovrei partire per il convertitore binario-decimale?

Pagine: [ 1 2 3 ]