Pascal and Delphi

Pascal and Delphi RSS

Converting Dec to Hex without using IntToHex...

•

Join Date: Dec 2004

Posts: 1

Reputation: dirtyk is an unknown quantity at this point

Solved Threads: 0

dirtyk

Offline

Newbie Poster

Converting Dec to Hex without using IntToHex...

Dec 1st, 2004

Hi I am quite a new programmer and I was just wondering if there's anyone out there who could help me...

I need to write a procedure to input a decimal number via a suitable const parameter and output the hexadecimal equivalent to the console window...

Now, I can do the maths and figure I need to use a loop of some type, but can anyone help me on how i can store the cumbers separately to put together at the end of the procedure...?
you need to mod the number by 16 to get the remainder and then div by 16 and repeat with new num... how do you store the remainders and convert them into the hex equivalent without having lines and lines of code?

•

Join Date: Dec 2004

Posts: 207

Reputation: Real-tiner is an unknown quantity at this point

Solved Threads: 8

Real-tiner Real-tiner is offline

Offline

Posting Whiz in Training

Re: Converting Dec to Hex without using IntToHex...

Jan 18th, 2005

I wrote one years ago where I stored the hex digits in a string.

•

Join Date: Jan 2005

Posts: 31

Reputation: Jackrabbit is an unknown quantity at this point

Solved Threads: 0

Jackrabbit Jackrabbit is offline

Offline

Light Poster

Re: Converting Dec to Hex without using IntToHex...

Feb 2nd, 2005

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
program dec2hex;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
   BASE16 = 16;
var
   HexValue  : string;
   Remainder : Integer;
   Quotient  : Integer;
begin
   HexValue := '';
   write( 'Enter an integer value: ' );
   readln( Quotient );
   while Quotient > 0 do
   begin
      Remainder := Quotient mod BASE16;
      case Remainder of
         10: HexValue := 'A' + HexValue;
         11: HexValue := 'B' + HexValue;
         12: HexValue := 'C' + HexValue;
         13: HexValue := 'D' + HexValue;
         14: HexValue := 'E' + HexValue;
         15: HexValue := 'F' + HexValue;
      else
         HexValue := IntToStr( Remainder ) + HexValue;
      end;
      Quotient := Quotient div BASE16
   end;
   writeln;
   writeln( HexValue );
   writeln;
end.
program dec2hex;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
   BASE16 = 16;
var
   HexValue  : string;
   Remainder : Integer;
   Quotient  : Integer;
begin
   HexValue := '';
   write( 'Enter an integer value: ' );
   readln( Quotient );
   while Quotient > 0 do
   begin
      Remainder := Quotient mod BASE16;
      case Remainder of
         10: HexValue := 'A' + HexValue;
         11: HexValue := 'B' + HexValue;
         12: HexValue := 'C' + HexValue;
         13: HexValue := 'D' + HexValue;
         14: HexValue := 'E' + HexValue;
         15: HexValue := 'F' + HexValue;
      else
         HexValue := IntToStr( Remainder ) + HexValue;
      end;
      Quotient := Quotient div BASE16
   end;
   writeln;
   writeln( HexValue );
   writeln;
end.