Converting Dec to Hex without using IntToHex...

•

What is DaniWeb IT Discussion Community?

You're currently browsing the Pascal and Delphi section within the Software Development category of DaniWeb, a massive community of 426,791 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 1,762 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our Pascal and Delphi advertiser: Programming Forums

Thread Tools Display Modes

Views: 30823 | Replies: 2

•

Join Date: Dec 2004

Posts: 1

Reputation: dirtyk is an unknown quantity at this point

Rep Power: 0

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

Rep Power: 4

Solved Threads: 7

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

Rep Power: 4

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

(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.