Pascal/Delphi Hexadecimal para decimal não está funcionando

Augusto Henrique Ferreira · 7 de maio de 2018

Olá!!! estou tentando fazer um código que transforme um número hexadecimal em decimal, mas este aqui não está funcionando (dá para compilar tranquilo,mas a conversão fica errada). Alguém consegue resolver?

Program HexToDec ;
var numero:string; 
    tam,digito,i,expoente:integer;
    deci:real;
begin
  Writeln ('Digite um número hexadecimal');
  readln (numero);
  expoente:=0;
  deci:=0;
  tam:=length(numero);
  for i:=tam downto 1 do
     begin
    case numero of
      '1': digito:=1;
      '2': digito:=2;
      '3': digito:=3;
      '4': digito:=4;
      '5': digito:=5;
      '6': digito:=6;
      '7': digito:=7;
      '8': digito:=8;
      '9': digito:=9;
      'A': digito:=10;
      'B': digito:=11;
      'C': digito:=12;
      'D': digito:=13;
      'E': digito:=14;
      'F': digito:=15;
    end;
    expoente:=expoente+1;
    deci:=deci+digito*(exp(expoente*ln(16))); 
    end;
  Writeln ('O número decimal é ',deci:0:0);   
End.

Simon Viegas · 7 de maio de 2018

Olá

1#

@Augusto Henrique Ferreira, sobre:

9 horas atrás, Augusto Henrique Ferreira disse:

Olá!!! estou tentando fazer um código que transforme um número hexadecimal em decimal, mas este aqui não está funcionando (dá para compilar tranquilo,mas a conversão fica errada). Alguém consegue resolver?

Fica errada como? o que acontece?

Você precisaria relatar o problema.

2#

Para tentar adiantar, testei o seu código. Me pareceu que o número está dando maior, ou seja, se inserir 1 está dando 16 (em vez de 1). Se inserir 10 está dando 256 (em vez de 16).

Então, se parar para observar, veremos que está dando um valor 16 vezes maior... logo, provavelmente tem algo a ver com o expoente.

Tenta assim:

...
      'E' :digito:=14;
      'F' :digito:=15;
    end; //fim case
  {expoente:=expoente+1;} //está atualizando antes da hora
  deci:=deci+digito*(exp(expoente*ln(16))); 
  expoente:=expoente+1;
  end;
...

***

ADENDO: Perceba que "algo não está funcionando no código" é justamente o esperado aqui no Fórum, ou seja, é necessário tentar apontar "o que está dando errado". Entende? Serve tanto para tentarmos ir direto ponto, tanto para você mesmo ter contato com o erro.

O segredo é sempre tentar entender o erro.

No aguardo.