Question

How to convert decimal number to binary in Pascal

Answer 1

program DecimalToBinary;

uses
  SysUtils;

function DecimalToBinary(n: Integer): String;
var
  binaryStr: String;
begin
  binaryStr := '';
  while n > 0 do
  begin
    binaryStr := IntToStr(n mod 2) + binaryStr;
    n := n div 2;
  end;
  if binaryStr = '' then
    binaryStr := '0';
  DecimalToBinary := binaryStr;
end;

var
  decimalNumber: Integer;
  binaryResult: String;
begin
  decimalNumber := 41;
  
  binaryResult := DecimalToBinary(decimalNumber);
  
  WriteLn('Binary representation: ', binaryResult);
end.



(*
run:

Binary representation: 101001

*)

 

70+ SQL courses for beginners and professionals