Show 例子 4

优质

小牛编辑

129浏览

2023-12-01

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

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

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

运算符	操作
not	Bitwise NOT
and	Bitwise AND
or	Bitwise OR
xor	Bitwise XOR
shl	按位向左移位
shr	按位向右移位
<<	按位向左移位
>>	按位向右移位

以下示例说明了这一概念 -

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