Pascal - Operatori di bit

Gli operatori bit per bit supportati da Pascal sono elencati nella tabella seguente. Supponiamo che la variabile A contenga 60 e la variabile B ne contenga 13, quindi -

Operatore	Descrizione	Esempio
&	L'operatore AND binario copia un po 'nel risultato se esiste in entrambi gli operandi.	(A e B) darà 12, che è 0000 1100
|	L'operatore OR binario copia un bit se esiste in uno degli operandi.	(A | B) darà 61, che è 0011 1101
!	L'operatore OR binario copia un bit se esiste in uno degli operandi. È uguale a | operatore.	(A! B) darà 61, che è 0011 1101
~	Binary Ones Complement Operator è unario e ha l'effetto di "ribaltare" i bit.	(~ A) darà -61, che è 1100 0011 in forma di complemento a 2 a causa di un numero binario con segno.
<<	Operatore binario di spostamento sinistro. Il valore dell'operando sinistro viene spostato a sinistra del numero di bit specificato dall'operando destro.	Un << 2 darà 240, che è 1111 0000
>>	Operatore binario di spostamento a destra. Il valore dell'operando sinistro viene spostato a destra del numero di bit specificato dall'operando destro.	Un >> 2 darà 15, che è 0000 1111

Si noti che le diverse implementazioni di Pascal differiscono per gli operatori bit per bit. Free Pascal, il compilatore che abbiamo usato qui, tuttavia, supporta i seguenti operatori bit per bit:

Operatori	Operazioni
non	Bitwise NON
e	Bitwise AND
o	OR bit per bit
xor	OR esclusivo bit per bit
shl	Spostamento bit per bit a sinistra
shr	Spostamento bit per bit a destra
<<	Spostamento bit per bit a sinistra
>>	Spostamento bit per bit a destra

L'esempio seguente illustra il concetto:

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.

Quando il codice precedente viene compilato ed eseguito, produce il seguente risultato:

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