Bitwise operations: Difference between revisions

Content deleted Content added

Inline

@@ Line 2,504: / 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 = ', 2 and 3);
+  Writeln('2 and 3 = ', x and y);
-  Writeln('2 or 3 = ', 2 or 3);
+  Writeln('2 or 3 = ', x or y);
-  Writeln('2 xor 3 = ', 2 xor 3);
+  Writeln('2 xor 3 = ', x xor y);
-  Writeln('not 2 = ', not 2);
+  Writeln('not 2 = ', not x);
-  Writeln('2 shl 3 = ', 2 >> 3);
+  Writeln('2 shl 3 = ', x >> y);
-  Writeln('2 shr 3 = ', 2 << 3);
+  Writeln('2 shr 3 = ', x << y);
-  writeln('2 rol 3 = ', rolbyte(2,3));
+  writeln('2 rol 3 = ', rolbyte(x,y));
-  writeln('2 ror 3 = ', rorbyte(2,3));
+  writeln('2 ror 3 = ', rorbyte(x,y));
   writeln('2 sar 3 = ', sarshortint(2,3));
   Readln;