Ver Mensaje Individual
  #6 (permalink)  
Antiguo 26/09/2003, 00:56
Avatar de Blag
Blag
 
Fecha de Ingreso: septiembre-2003
Ubicación: Lima
Mensajes: 68
Antigüedad: 21 años, 3 meses
Puntos: 0
No hay problema....la indiferencia me da igual Yo solo quiero participar en la competencia aunque sea solo.....

Por lo tanto, acá está en Euphoria.....

Código:
include get.e

atom numero,digito,exponente,resultado,x,suma
sequence respuesta,auxiliar

x = 1
auxiliar = {115}

while x = 1  do
clear_screen()
    numero = prompt_number("Ingresa un numero decimal: ",{})
    suma = 0
    exponente = 1
    while numero > 0  do
	digito = remainder(numero,2)
	numero = floor(numero/2)
	suma = suma + digito * exponente
	exponente = exponente * 10
    end while
    puts(1,"El numero binario es: ")
    print(1,suma)
    respuesta = prompt_string("\nDeseas continuar (s/n)?: ")
    resultado = compare(respuesta,auxiliar)
    if resultado = 0 then
	x = 1
    else
	x = 0
    end if
end while
__________________
Alvaro Tejada Galindo
Consultor ABAP FI/HR
SinglePath's Experimental HomePage
Foro de ABAP en SoloCodigo.com
Revista "Código Latino"