Ver Mensaje Individual
  #1  
Antiguo 04-12-2011
luisito2011 luisito2011 is offline
Miembro
NULL
 
Registrado: mar 2011
Posts: 82
Reputación: 14
luisito2011 Va por buen camino
Talking decimal a binario

hola a todos...
me podrian ayudar.. oh guiar de como puedo hacer
una funcion que me convierta un numero decimal.. a binario
---
yo ya lo tengo pero mi funcion tiene error...

cuando le envio el numero 2
tendria que mostrarme 10.. pero solo me muestra 1..
intente hacerle con un vector.. pero despuej me acorde..
que una funcion no devuelve un vector..

Código Delphi [-]
int binario(int Numero)
{
int bin,inv,dig;
bin=0; inv=0;
while (Numero>0)
{
    dig=Numero%2;
    if (dig == 0)
        bin=bin*10;
    else
        bin=(bin*10)+dig;
    Numero=Numero/2;
}
while (bin>0)
{
    dig=bin%10;
    inv=(inv*10)+dig;
    bin=bin/10;
}
return inv;
}

esa es mi funcion aun q es un poco simple..
---thanks,...
Responder Con Cita