Proceso Decimal_a_Binario
escribir "Escriba un numero Entero para pasarlo a Binario"
leer x
num=x
Mientras x>1 Hacer
Si x mod 2=0 Entonces
acum=ConvertirATexto(0)+acum
Sino
acum=ConvertirATexto(1)+acum
Fin Si
x=Trunc(x/2)
Fin Mientras
acum=convertiratexto(x mod 2)+acum
escribir num," Decimal = ",acum," en Binario"
FinProceso
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Proceso Decimal_a_Binario
escribir "Escriba un numero Entero para pasarlo a Binario"
leer x
num=x
Mientras x>1 Hacer
Si x mod 2=0 Entonces
acum=ConvertirATexto(0)+acum
Sino
acum=ConvertirATexto(1)+acum
Fin Si
x=Trunc(x/2)
Fin Mientras
acum=convertiratexto(x mod 2)+acum
escribir num," Decimal = ",acum," en Binario"
FinProceso
(y)