4_47

algoritmo "semnome"

var
   num, valor:inteiro
   resultado:caracter
inicio
   escreval ("Digite um valor Decimal: ")
   leia(num)
   valor <- (num)
   enquanto (num > 0) faca
            escolha (num%16)
                    caso 1
                    resultado <- ("1" + resultado)
                    caso 2
                    resultado <- ("2" + resultado)
                    caso 3
                    resultado <- ("3" + resultado)
                    caso 4
                    resultado <- ("4" + resultado)
                    caso 5
                    resultado <- ("5" + resultado)
                    caso 6
                    resultado <- ("6" + resultado)
                    caso 7
                    resultado <- ("7" + resultado)
                    caso 8
                    resultado <- ("8" + resultado)
                    caso 9
                    resultado <- ("9" + resultado)
                    caso 10
                    resultado <- ("A" + resultado)
                    caso 11
                    resultado <- ("B" + resultado)
                    caso 12
                    resultado <- ("C" + resultado)
                    caso 13
                    resultado <- ("D" + resultado)
                    caso 14
                    resulado <- ("E" + resultado)
                    caso 15
                    resultado <- ("F" + resultado)
            fimEscolha
            num <- (num \ 16)
   fimenquanto
   escreval ("O valor: ", valor, " em é: ", resultado, " em hexadecimal ")
fimalgoritmo