dectohex

algoritmo "Conversão em Hexadecimal"
// Função :  Converter número decimal em Hexadecimal
var
   tabela: vetor[0..15] de caracter
   h: vetor[0..5] de caracter
   aux: vetor[0..5] de caracter
   op,num, cont,i:inteiro
   hexad: caracter
   resto: inteiro

inicio
        tabela[0]<- "0"
        tabela[1]<- "1"
        tabela[2]<- "2"
        tabela[3]<- "3"
        tabela[4]<- "4"
        tabela[5]<- "5"
        tabela[6]<- "6"
        tabela[7]<- "7"
        tabela[8]<- "8"
        tabela[9]<- "9"
        tabela[10]<- "A"
        tabela[11]<- "B"
        tabela[12]<- "C"
        tabela[13]<- "D"
        tabela[14]<- "E"
        tabela[15]<- "F"

      repita
         escreval("1 converter numero:")
         escreval("0 sair")
         escreval("sua opção:")
         leia (op)

         escolha op
         caso 1
            hexad<-""
            cont<-0
            escreval("dite um numero:")
            leia(num)
            escreval("-------------------------------")
            se (num <= 99999) e (num >=0)entao
               enquanto num>0 faca
                  escreval("Quociente: ",num)
                  resto<- (num mod 16)
                  num<- (num \ 16)
                  hexad<- tabela[resto]+hexad
                  h[cont]<- tabela[resto]+h[cont]
                  cont<-cont + 1
                  escreval("Resto da divisao: ",resto)
               fimenquanto
               escreval("---------------------------")
               cont<-0
                 para i de 0 ate 5 passo 1 faca
                    se(h[5-i]<>"")entao
                      aux[cont]<-h[5-i]
                      cont<-cont + 1
                    fimse
                fimpara
                escreva("Vetor: ")
                para i de 0 ate 5 passo 1 faca
                se(aux[i]="")entao
                  aux[i]<-"0"
                fimse
                 escreva(aux[i])
                 h[i]<- ""
                 aux[i]<- ""
                fimpara
                escreval()
               escreval("Hexadecimal: ", hexad)
            senao
                 escreval("numero invalido!")
            fimse

         caso 0
            escreval("sair")
         outrocaso
            escreval("opção invalida:")
         fimescolha
      ate op = 0

fimalgoritmo