Pascal - Operadores de bits

Los operadores bit a bit admitidos por Pascal se enumeran en la siguiente tabla. Suponga que la variable A tiene 60 y la variable B tiene 13, entonces -

Operador	Descripción	Ejemplo
Y	El operador AND binario copia un bit al resultado si existe en ambos operandos.	(A & B) dará 12, que es 0000 1100
\|	El operador OR binario copia un bit si existe en cualquiera de los operandos.	(A \| B) dará 61, que es 0011 1101
!	El operador OR binario copia un bit si existe en cualquiera de los operandos. Es lo mismo que \| operador.	(A! B) dará 61, que es 0011 1101
~	El operador de complemento binario es unario y tiene el efecto de "voltear" bits.	(~ A) dará -61, que es 1100 0011 en forma de complemento a 2 debido a un número binario con signo.
<<	Operador binario de desplazamiento a la izquierda. El valor de los operandos de la izquierda se mueve a la izquierda el número de bits especificado por el operando de la derecha.	Un << 2 dará 240, que es 1111 0000
>>	Operador de cambio a la derecha binario. El valor de los operandos de la izquierda se mueve hacia la derecha el número de bits especificado por el operando de la derecha.	A >> 2 dará 15, que es 0000 1111

Tenga en cuenta que las diferentes implementaciones de Pascal difieren en los operadores bit a bit. Free Pascal, el compilador que usamos aquí, sin embargo, admite los siguientes operadores bit a bit:

Operadores	Operaciones
no	Bit a bit NO
y	Y bit a bit
o	O bit a bit
xor	OR exclusivo bit a bit
shl	Desplazamiento bit a la izquierda
Shr	Desplazamiento bit a bit a la derecha
<<	Desplazamiento bit a la izquierda
>>	Desplazamiento bit a bit a la derecha

El siguiente ejemplo ilustra el concepto:

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.

Cuando se compila y ejecuta el código anterior, produce el siguiente resultado:

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

↰ Previous page