Question

How to convert an integer to a string in base b with Pascal

Answer 1

program IntToBaseString;

function IntToBase(N: Integer; Base: Integer): String;
const
  Digits = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  ResultStr: String;
  Remainder: Integer;
begin
  if (Base < 2) or (Base > Length(Digits)) then
  begin
    IntToBase := 'Error: Invalid base';
    Exit;
  end;

  ResultStr := '';
  repeat
    Remainder := N mod Base;
    ResultStr := Digits[Remainder + 1] + ResultStr;
    N := N div Base;
  until N = 0;

  IntToBase := ResultStr;
end;


var
  Num: Integer;
  Base: Integer;
  Converted: String;
begin
  Num := 255;
  Base := 16;

  Converted := IntToBase(Num, Base);
  WriteLn('Converted number: ', Converted);
end.



(*
run:

Converted number: FF
*)

 

70+ SQL courses for beginners and professionals