[tutorial] operaçao bit a bit em pascal

um dos ultimos tutorial eu falei dos operadores logicos bit a bit na linguagem c agora vou falar na linguagem pascal, os operadores bit a bit permite manipular o binario de um bits, alguns operadores bit a bit gera um terceiro numero entre dois numeros, os 4 operadores basicos sao (or, and, xor e not)

OR

o operador or gera um terceiro numero entre dois numeros, caso o numero for verdadeiro-verdadeiro ou verdadeiro-falso o resultado final e verdadeiro, caso o numero for falso-falso o resultado final e falso veja um exemplo

1 + 1 = 1
1 + 0 = 1
0 + 0 = 0

veja um exemplo do numero 10(1010) e 14(1110) q e igual a 14(1110)

1010
1110
-----
1110

na linguagem pascal o bit a bit e representado pelo mesmo nome do operador logico, entao o operador e or

Código:


//by hacker fts315
program bitabit;
var v1,v2,r: integer;
begin
    v1:= 10;
    v2:= 14;
    r:= v1 or v2;
    write(r);
end.


AND

no caso do operador bit a bit and ele apenas gera verdadeiro se ambos for verdadeiro (verdadeiro-verdadeiro), veja o exemplo

1 + 1 = 1
1 + 0 = 0
0 + 0 = 0

veja um exemplo do numero 10(1010) e 14(1110) q e igual a 10(1010)

1010
1110
-----
1010

na linguagem pascal o operador bit a bit and e representado pela palavra and, veja um exemplo

Código:


//by hacker fts315
program bitabit;
var v1,v2,r: integer;
begin
    v1:= 10;
    v2:= 14;
    r:= v1 and v2;
    write(r);
end.


XOR

o operador bit a bit xor apenas define como verdadeiro caso ambos forem diferente (verdadeiro-falso), veja um exemplo

1 + 1 = 0
1 + 0 = 1
0 + 0 = 0

veja um exemplo do numero 10(1010) e 14(1110) q e igual a 4(0100)

1010
1110
-----
0100

na linguagem pascal o operador bit a bit xor e representado pelo palavra xor, veja um exemplo

Código:


//by hacker fts315
program bitabit;
var v1,v2,r: integer;
begin
    v1:= 10;
    v2:= 14;
    r:= v1 xor v2;
    write(r);
end.


NOT

o operador not apenas inverte um numero, se e verdadeiro vira falso se e falso vira verdadeiro, veja um exemplo

1 = 0
0 = 1

veja um exemplo do numero 10(1010) q e igual a -11(0101)

1010
-----
0101

na linguagem pascal o operador bit a bit not e representado pelo palavra not, veja um exemplo

Código:


//by hacker fts315
program bitabit;
var v1,r: integer;
begin
    v1:= 10;
    r:= not v1;
    write(r);
end.


by hacker fts315