Decimal a Hexadecimal - Pseint

[Whathson Rene Ordoñez Torres]

Proceso Decimal_a_Hexadecimal
escribir "Escriba un numero Entero para pasarlo a Hexadecimal"
leer num
x=num
Repetir
Si x mod 16>9 y x mod 16<16 Entonces
Si x mod 16=10 Entonces
acum="A"+acum
finsi
Si x mod 16=11 Entonces
acum="B"+acum
finsi
Si x mod 16=12 Entonces
acum="C"+acum
finsi
Si x mod 16=13 Entonces
acum="D"+acum
finsi
Si x mod 16=14 Entonces
acum="E"+acum
finsi
Si x mod 16=15 Entonces
acum="F"+acum
finsi
Sino
acum=ConvertirATexto(x mod 16)+acum
Fin Si
x=trunc(x/16)
Hasta Que x<=1
Si x>0 Entonces
acum=ConvertirATexto(x)+acum
Fin Si
escribir num," Decimal = ",acum," en Hexadecimal"
FinProceso

// by Whathson Rene Ordoñez Torres

[alejandrocaro35]

Acá una versión más compacta. Original para SL

Proceso sin_titulo
    Definir num Como Entero;
    Escribir "Escriba un número Entero para pasarlo a Hexadecimal";
    Leer num;
    Escribir num," Decimal = ",DecToHex(num)," en Hexadecimal";
FinProceso

SubProceso Retorno <- DecToHex(DecNum)
    Definir n, k Como Entero;
    Definir hex, DIG_HEX, Retorno Como Cadenas;
    n <- 0;
    hex <- "";
    DIG_HEX <- "0123456789ABCDEF";
    k <- 0;
    n <- DecNum;
    Repetir
        k <- n % 16;
        hex <- concatenar(subcadena(DIG_HEX,k,k),hex);
        n <- trunc(n/16);
    Hasta Que n = 0
    Retorno <- hex;
FinSubProceso

[Whathson Rene Ordoñez Torres]

Espero los ayude

[cesar marcano]

su pseudocódigo tiene errores. Lo probé con pseint, tenia errores con "Definir" y tendras que corregirlas. Buena suerte.

[alejandrocaro35]

Usa sintaxis flexible

[Anonymous]

Gracias por el aporte

[Anonymous]

gracias bro, me ayudsate

[Anonymous]

en dfd porfaaaaaaaaaaaaaaaaaaa