Question

How to get the 4 least significant bits in a byte with Pascal

Answer 1

program Lower4Bits;

{$APPTYPE CONSOLE}

var
  byteValue : Byte;
  lower4    : Byte;

procedure PrintBits(b: Byte);
var
  i: Integer;
begin
  for i := 7 downto 0 do
    if (b and (1 shl i)) <> 0 then
      Write('1')
    else
      Write('0');
end;

begin
  byteValue := $D6;              { 1101 0110b }
  lower4 := byteValue and $0F;   { keep only 4 LSBs }

  Write('byteValue = ');
  PrintBits(byteValue);
  Writeln;

  Write('lower4    = ');
  PrintBits(lower4);
  Writeln;

end.



(*
run:

byteValue = 11010110
lower4    = 00000110

*)

 

70+ SQL courses for beginners and professionals