Question

How to convert binary string to integer in Pascal

Answer 1

program BinaryToDecimal;

var
  binary: string;
  decimal: Integer;
  i: Integer;

begin
  binary := '1011001011';
  decimal := 0;

  for i := 1 to Length(binary) do
  begin
    decimal := decimal * 2 + Ord(binary[i]) - Ord('0');
  end;

  WriteLn(decimal);
end.



   
(*
run:
  
715
  
*)

 

70+ SQL courses for beginners and professionals

Answer 2

program BinaryToDecimal;

uses 
  SysUtils; // StrToInt

var
  binary: string;
  decimal: Integer;

begin
  binary := '1011001011';

  decimal := StrToInt('%' + binary);

  WriteLn(decimal);
end.



   
(*
run:
  
715
  
*)

 

70+ SQL courses for beginners and professionals