Algoritmia - nesecito un codio en Qbasic transforme numeros

CLS

' Función para convertir números decimales a binarios '

FUNCTION DecimalABinario(decimal)

    binario$ = ""

    DO

        cociente = INT(decimal / 2)

        residuo = decimal MOD 2

        binario$ = LTRIM$(STR$(residuo)) + binario$

        decimal = cociente

    LOOP UNTIL decimal = 0

    DecimalABinario = binario$

END FUNCTION

' Función para convertir números octales a binarios '

FUNCTION OctalABinario(octal)

    binario$ = ""

    DO

        cociente = INT(octal / 2)

        residuo = octal MOD 2

        binario$ = LTRIM$(STR$(residuo)) + binario$

        octal = cociente

    LOOP UNTIL octal = 0

    OctalABinario = binario$

END FUNCTION

' Función para convertir números hexadecimales a binarios '

FUNCTION HexadecimalABinario(hexadecimal$)

    binario$ = ""

    FOR i = 1 TO LEN(hexadecimal$)

        digito$ = MID$(hexadecimal$, i, 1)

        valor = INSTR("0123456789ABCDEF", UCASE$(digito$)) - 1

        binario$ = binario$ + RIGHT$("0000" + LTRIM$(STR$(BIN$(valor))), 4)

    NEXT i

    HexadecimalABinario = binario$

END FUNCTION

' Entrada de datos '

INPUT "Ingrese un número decimal: ", numDecimal

INPUT "Ingrese un número octal: ", numOctal

INPUT "Ingrese un número hexadecimal: ", numHexadecimal$

' Conversión y salida de resultados '

PRINT "Decimal a binario: "; DecimalABinario(numDecimal)

PRINT "Octal a binario: "; OctalABinario(numOctal)

PRINT "Hexadecimal a binario: "; HexadecimalABinario(numHexadecimal$)

END