Difference between revisions of "Shr"

From Free Pascal wiki
Jump to navigationJump to search
m
(add footer)
(7 intermediate revisions by 6 users not shown)
Line 1: Line 1:
{{shr}}
+
{{Shr}}
<br>
 
<br>
 
'''Sh'''ift '''r'''ight (shr) performs a right bit-shift operation (opposite than [[Shl|shl]]).
 
  
 +
 +
Back to [[Reserved words]].
 +
 +
 +
== Overview ==
 +
 +
The reserved word '''Sh'''ift '''r'''ight (shr) performs a logical right bit-shift operation (opposite than [[Shl|shl]]).
 +
 +
== Shr with signed types ==
 +
Note: unlike the >> operator in the C language, the shr operator is a logical (not arithmetic) bit shift, even if the left operand is a signed integer. An implicit typecast and extension to a larger unsigned type may be performed before the shift operation. Check what the following program actually prints.
 +
 +
<syntaxhighlight lang=pascal>
 +
program ShrTest;
 +
begin
 +
  WriteLn(ShortInt(-3) shr 1);
 +
end.
 +
</syntaxhighlight>
  
 
== Is a bit set ==
 
== Is a bit set ==
  
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
function isBitSet(AValue, ABitNumber:integer):boolean;
 
function isBitSet(AValue, ABitNumber:integer):boolean;
 
begin
 
begin
Line 14: Line 28:
 
</syntaxhighlight>
 
</syntaxhighlight>
  
=== Read more ===
+
{{Logical operators}}
* [[Odd]]
 
* [[Boolean]]
 
 
* [[Const]]
 
* [[Const]]
 
* [[Function]]
 
* [[Function]]
 
* [[Integer]]
 
* [[Integer]]
 
[[Category:Pascal]]
 

Revision as of 23:38, 16 October 2020

Deutsch (de) English (en) français (fr) русский (ru)


Back to Reserved words.


Overview

The reserved word Shift right (shr) performs a logical right bit-shift operation (opposite than shl).

Shr with signed types

Note: unlike the >> operator in the C language, the shr operator is a logical (not arithmetic) bit shift, even if the left operand is a signed integer. An implicit typecast and extension to a larger unsigned type may be performed before the shift operation. Check what the following program actually prints.

program ShrTest;
begin
  WriteLn(ShortInt(-3) shr 1);
end.

Is a bit set

function isBitSet(AValue, ABitNumber:integer):boolean;
begin
   result:=odd(AValue shr ABitNumber);
end;


navigation bar: Pascal logical operators
operators

and • or • not • xor
shl • shr
and_then (N/A)• or_else (N/A)

see also

{$boolEval} • Reference: § “boolean operators” • Reference: § “logical operators”