27/09/2003, 01:37
|
 | | | Fecha de Ingreso: septiembre-2003 Ubicación: Lima
Mensajes: 68
Antigüedad: 21 años, 3 meses Puntos: 0 | |
Aquí está en QBASIC 
Código:
DIM numero&, suma&, digito&, exponente&, respuesta$
DO WHILE NOT respuesta$ = CHR$(110)
CLS
INPUT "Ingresa un numero decimal: ", numero&
LET suma& = 0
LET exponente& = 1
DO UNTIL numero& <= 0
digito& = numero& MOD 2
IF NOT numero& MOD 2 = 0 THEN
numero& = numero& - 1
END IF
numero& = numero& / 2
suma& = suma& + digito& * exponente&
exponente& = exponente& * 10
LOOP
PRINT "El numero binario es: ", suma&
PRINT
INPUT "Deseas continuar (s/n)?: ", respuesta$
LOOP
|