Тайна shr

[Osmiy]

Вот программа:

Код: Выделить всё

program project1;

uses
  Math;

var
  I: LongWord;

begin
  I:= 1;
  I:= I shr 31;
  WriteLn(I);

  I:= 1;
  I:= I shr 32;
  WriteLn(I);

  ReadLn;
end.  

Она у меня выдаёт результат:

0
1

Т.е. shr с параметром до 32 работает с отсечением, с 32 и более циклически. Это так и должно?

Добавлено спустя 4 минуты 6 секунд:
Точнее цикличная работа происходит только при 32, 64 и т.д. Хрень господьня.

Добавлено спустя 10 минут 58 секунд:
Короче циклическая работа сдвига происходит по непонятным соображениям. ТО происходит, когда параметр больше 32, то не происходит.

[Снег Север]

RTFM

[runewalsh]

Сдвиг на значения ≥ разрядности переменной (32 для LongWord) не определён.