Ver Mensaje Individual
  #24 (permalink)  
Antiguo 21/10/2003, 14:27
Avatar de Blag
Blag
 
Fecha de Ingreso: septiembre-2003
Ubicación: Lima
Mensajes: 68
Antigüedad: 21 años, 4 meses
Puntos: 0
Ahora en D++ :

Código:
newvar numero,suma,digito,exponente,respuesta,aux,bye;

screenput "Ingresa un numero decimal: ";
screenin numero;

suma = 0;
exponente = 1;

do while numero >= 1;
digito = numero % 2;
numero = int(numero / 2);
aux = digito * exponente;
suma = suma + aux;
exponente = exponente * 10;
loop

screen;
screenput "El numero binario es: ";
screenput suma;
__________________
Alvaro Tejada Galindo
Consultor ABAP FI/HR
SinglePath's Experimental HomePage
Foro de ABAP en SoloCodigo.com
Revista "Código Latino"