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
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
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
Espero los ayude
su pseudocódigo tiene errores. Lo probé con pseint, tenia errores con "Definir" y tendras que corregirlas. Buena suerte.
Usa sintaxis flexible
Gracias por el aporte
gracias bro, me ayudsate
en dfd porfaaaaaaaaaaaaaaaaaaa