Question

How to get the lower 8 bits of an int in Pascal

Answer 1

program ShowBinary;

procedure PrintBinary(n: Word);
var
  i: Integer;
begin
  for i := 15 downto 0 do
    Write((n shr i) and 1);
  WriteLn;
end;

var
  n: Word;
  low8bits: Byte;
begin
  n := 1957;

  PrintBinary(n); // Print 16-bit binary of n

  low8bits := n and $FF;
  PrintBinary(low8bits); // Print 8-bit binary with 16-bit alignment
end.




(*
run:
  
0000011110100101
0000000010100101

*)

 

70+ SQL courses for beginners and professionals