帕斯卡 - 位运算符

Pascal 支持的位运算符如下表所示。假设变量 A 为 60，变量 B 为 13，则 -

操作员	描述	例子
&	如果两个操作数中都存在，则二进制 AND 运算符会将一位复制到结果中。	(A & B) 将给出 12，即 0000 1100
\|	如果任一操作数中存在该位，则二元或运算符会复制该位。	(A \| B) 将给出 61，即 0011 1101
！	如果任一操作数中存在该位，则二元或运算符会复制该位。与 \| 相同操作员。	(A ! B) 将给出 61，即 0011 1101
〜	二进制补码运算符是一元的，具有“翻转”位的效果。	(~A ) 将给出 -61，由于是有符号二进制数，因此为 2 的补码形式的 1100 0011。
<<	二进制左移运算符。左操作数的值向左移动右操作数指定的位数。	A << 2 将给出 240，即 1111 0000
>>	二进制右移运算符。左操作数的值向右移动右操作数指定的位数。	A >> 2 将得到 15，即 0000 1111

请注意，Pascal 的不同实现在按位运算符方面有所不同。然而，我们在这里使用的编译器 Free Pascal 支持以下按位运算符 -

运营商	运营
不是	按位非
和	按位与
或者	按位或
异或	按位异或
谢尔	按位左移
什尔	按位右移
<<	按位左移
>>	按位右移

下面的例子说明了这个概念 -

现场演示

program beBitwise;
var
a, b, c: integer;

begin
   a := 60;	(* 60 = 0011 1100 *)  
   b := 13;	(* 13 = 0000 1101 *)
   c := 0;           

   c := a and b;       (* 12 = 0000 1100 *)
   writeln('Line 1 - Value of c is  ', c );

   c := a or b;       (* 61 = 0011 1101 *)
   writeln('Line 2 - Value of c is  ', c );

   c := not a;          (* -61 = 1100 0011 *)
   writeln('Line 3 - Value of c is  ', c );

   c := a << 2;     (* 240 = 1111 0000 *)
   writeln('Line 4 - Value of c is  ', c );

   c := a >> 2;     (* 15 = 0000 1111 *)
   writeln('Line 5 - Value of c is  ', c );
end.

当上面的代码被编译并执行时，它会产生以下结果 -

Line 1 - Value of c is 12
Line 2 - Value of c is 61
Line 3 - Value of c is -61
Line 4 - Value of c is 240
Line 5 - Value of c is 15

pascal_operators.htm