maio 18 2008

Decimal para Hexadecimal em Pascal

  • Autor: admin em Programação
  • Sem Comentários. Seja o primeiro a comentar.
Esse código serve para você informar um valor decimal, e ele converte para Hexadecimal:

Program DecimaltoHexa;
Const
      MaxCasas=8;
Type
      Hexas = array[1..MaxCasas] of String[1];
Var
      Hexa: Hexas;
      escreve : boolean;
      Valor, aux, i, cont : Integer;
 Begin
         Write(’Coloque seu número decimal: ‘);
         ReadLn(Valor);
         aux:=valor;
         escreve:=false;
         For i:=1 to MaxCasas Do // Inicializa o vetor Hexadecimal.
                Hexa[i]:=’0′;
         For i:=1 to MaxCasas Do
         Begin
                 if aux mod 16 < 10 then
                       str(aux mod 16,Hexa[i])
                 else
                      case aux mod 16 of
                      10:Hexa[i]:=’A’;
                      11:Hexa[i]:=’B’;
                      12:Hexa[i]:=’C’;
                      13:Hexa[i]:=’D’;
                      14:Hexa[i]:=’E’;
                      15:Hexa[i]:=’F’;
                      End;
                      aux:=aux div 16;
                 End;
                 Write(’Conversão em Hexadecimal: ‘); 
                 For i:=MaxCasas downto 1 Do
                 Begin
                       If Hexa[i]<>’0′ then
                            escreve:=true;
                       If escreve then
                            Write(Hexa[i]);
                End
 End.



DEIXE UM COMENTÁRIO

Subscrever

Subscreve o Blog



Publicidade

Comentários Recentes

  • shirley Balazs: Parabéns!! Informações de utilidade publica e de primeira, foi muito útil a mim.Obrigada!!
  • Jefferson Ferreira de brito: eu quero muito
  • thiago valente: Eu quero um para mim
  • Lucas martins balieiro: Eu não fiz o enem mesmo assim eu posso me inscrever no site essa é minha dúvida, só queme...
  • Francisca Marli Oliveira: quero saber quanto tenho no meu fgts

Links

Leitores Recentes

VALE O CLIQUE!

Site Seguro Ocioso

Divulgue o blog Infomaroto em seu site e tenha seu link ou banner aqui.
Blog Infomaroto