Битовый сдвиг

[_-Re@l-_]

Вот код:

Var
   A:Integer;
   B:Integer;
Begin
     A:=-6;
     A:=A shl 1;
     B:=-6;
     B:=B shr 1;
     Writeln('A = ',A);
     Writeln('B = ',B);
     Readln;
End.

При битовом сдвиге числа А выдаёт -6(это правильно), а при битовом сдвиге числа В выдаёт 32567(это неправильно).Почему так?Должно ведь быть -3?

[Arigato]

Отрицательные числа в дополнительном коде: http://ru.wikipedia.org/wiki/%D0%94%...D0%BB%D0%B0%29

[Tronix]

Странные резалты. При сдвиге влево должно получится A = -12 (shl 1 - это считай умножение числа на 2). А при сдвиге вправо в числе B должно быть -3 (shr 1 это считай деление на 2).

A = -12
B = -3

[Arigato]

Получается следующее:

A = -12
B = 2147483645

Еще раз читаем ссылку, которую я привел:

Один и тот же регистр может хранить как n-битовое положительное число, так и (n−1)-битовое число со знаком, с общими для обоих форматов операциями сложения, вычитания и левого сдвига.

[Tronix]

Сообщение от Arigato

Получается следующее:

A = -12
B = 2147483645

Еще раз читаем ссылку, которую я привел:

Снимаю шляпу. Просто я все тестирую в Virtual Pascal, а он соответственно все интеджеры хранит в 2 байтах, а при операциях сдвига преобразует до 4 байт. Конечно переполнения по этому не происходит, так как movsx расширяет старшие разряды операнда назначения. Знак не теряется.

 0FBF059E344000               movsx     eax,w,[00040349E]
 D1E8                         shr       eax,1

[_-Re@l-_]

Всё равно не получается.Пробовал так:

Var
   A:Integer;
   B:Integer;
Begin
     A:=-6;
     A:=((not a) or 128) + 1;
     A:=A shl 1;
     B:=((not B) or 128) + 1;
     B:=-6;
     B:=B shr 1;
     Writeln('A = ',A);
     Writeln('B = ',B);
     Readln;
End.

Выдаёт 268 и 32637.

[Tronix]

Сообщение от _-Re@l-_

Всё равно не получается.Пробовал так:

Попробуй как-то так

Var
   A:Integer;
   B:Integer;
Begin
     A:=-6;
     A:=a shl 1
     B:=-6;
     B:=not((not B) shr 1);
     Writeln('A = ',A);
     Writeln('B = ',B);
     Readln;
End.

[_-Re@l-_]

Работает.
Т.е. Битовый сдвиг влево нормально выполняется, а для битового сдвига вправо нужно так?

[Arigato]

Сообщение от _-Re@l-_

для битового сдвига вправо нужно так?

Тогда уж лучше так:

Var
   A:Integer;
   B:Integer;
Begin
     A:=-6;
     A:=a shl 1;
     B:=-6;
     asm
       sar B, 1
     end;
     Writeln('A = ',A);
     Writeln('B = ',B);
     Readln;
End.

[_-Re@l-_]

Жаль, что я не знаю ассемблер.. Просто я пробовал его учить, только я его не понимаю..