Pascal - 位运算符
下表列出了 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 支持以下按位运算符 −
| 运算符 | 运算 |
|---|---|
| not | 按位非 |
| and | 按位与 |
| or | 按位或 |
| 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
