Show 例子
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
