Algoritmo de Conversão Decimal - Hexa

[Karina97]

Oi gente, vou ter uma prova hj sobre algoritmos, e preciso urgentemente da ajuda de alguém:wacko:

Bom, não estou conseguindo corrigir o algoritmo abaixo:

algoritmo "Ex 8-Aula 32"
var
  n: inteiro
  result: caracter

//Primeira funcao: passar de inteiro para caractere
funcao int2char(r: inteiro): caracter
var
valor: caractere
inicio
escolha r
      caso 0
           valor<- "0"
      caso 1
           valor<- "1"
      caso 2
           valor<- "2"
      caso 3
           valor<- "3"
      caso 4
           valor<- "4"
      caso 5
           valor<- "5"
      caso 6
           valor<- "6"
      caso 7
           valor<- "7"
      caso 8
           valor<- "8"
      caso 9
           valor<- "9"
      caso 10
           valor<- "A"
      caso 11
           valor<- "B"
      caso 12
           valor<- "C"
      caso 13
           valor<- "D"
      caso 14
           valor<- "E"
      caso 15
           valor<- "F"
fimescolha
retorne (valor)

// Segunda funcao: passar de decimal para hexa
funcao dec2hexa(d:inteiro): caractere
var
 resto: inteiro
 h, x: caractere
inicio
h<-" "
se d<10 então
   x<- int2char(d)
   h<- x
senao
     enquanto d>=16 faca
        resto <- d mod 16
        x <- int2char(resto)
        h <- x+h
        d\16
     fimenquanto
     h <- int2char(d)+h
fimse
retorne h
fimfuncao

//Inicio do algoritmo
inicio
escreval ("Informe um numero inteiro: ")
leia (n)
escreval ("Valor correspondente na base hexadecimal: ", dec2hexa(n))
fimalgoritmo

Aparece que a "variável" dec2hexa não foi encontrada.... o problema é que a dec2hexa é uma função

valeu gentee!

[Simon Viegas]

Olá Karina97

Oi gente, vou ter uma prova hj sobre algoritmos, e preciso urgentemente da ajuda de alguém:wacko:

Aparece que a "variável" dec2hexa não foi encontrada.... o problema é que a dec2hexa é uma função

valeu gentee!

Faltou o "fimfuncao"

algoritmo "Ex 8-Aula 32"
var
  n: inteiro
  result: caracter

//Primeira funcao: passar de inteiro para caractere
funcao int2char(r: inteiro): caracter
   var
      valor: caractere
   inicio
   escolha r
      caso 0
        valor <- "0"
      caso 1
           valor <- "1"
      caso 2
           valor <- "2"
      caso 3
           valor <- "3"
      caso 4
           valor <- "4"
      caso 5
           valor <- "5"
      caso 6
           valor <- "6"
      caso 7
           valor <- "7"
      caso 8
           valor <- "8"
      caso 9
           valor <- "9"
      caso 10
           valor <- "A"
      caso 11
           valor <- "B"
      caso 12
           valor <- "C"
      caso 13
           valor <- "D"
      caso 14
           valor <- "E"
      caso 15
           valor <- "F"
   fimescolha
   retorne (valor)
[COLOR="Red"]   fimfuncao //Faltou esse comando[/COLOR]

// Segunda funcao: passar de decimal para hexa
funcao dec2hexa(d:inteiro): caractere
   var
      resto: inteiro
      h, x: caractere
   inicio
   h<-" "
   se d<10 então
      x<- int2char(d)
      h<- x
   senao
      enquanto d>=16 faca
         resto <- d mod 16
         x <- int2char(resto)
         h <- x+h
         d\16
      fimenquanto
      h <- int2char(d)+h
   fimse
   retorne h
   fimfuncao

//Inicio do algoritmo
INICIO
escreval ("Informe um numero inteiro: ")
leia (n)
escreval ("Valor correspondente na base hexadecimal: ", dec2hexa(n))
FIMALGORITMO

No aguardo.

[Karina97]

Aaaaah obrigada!!!

[DiF]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.