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