Bitwise operations: Difference between revisions

Content added Content deleted
m (→‎{{header|AppleScript}}: (typo – missing word in preamble))
Line 2,504:
<lang pascal>program Bitwise;
{$mode objfpc}
var
// Pascal uses a native int type as a default leteral type
// Make sure the operants work on an exact type.
x:shortint = 2;
y:ShortInt= 3;
begin
Writeln('2 and 3 = ', 2x and 3y);
Writeln('2 or 3 = ', 2x or 3y);
Writeln('2 xor 3 = ', 2x xor 3y);
Writeln('not 2 = ', not 2x);
Writeln('2 shl 3 = ', 2x >> 3y);
Writeln('2 shr 3 = ', 2x << 3y);
writeln('2 rol 3 = ', rolbyte(2x,3y));
writeln('2 ror 3 = ', rorbyte(2x,3y));
writeln('2 sar 3 = ', sarshortint(2,3));
Readln;
Retrieved from "https://rosettacode.org/wiki/Bitwise_operations"