[malekskv]

Читал книгу Фленова. Наткнулся на то что можно сдвигом делить и умножать числа. То есть если у нас есть число 58(111010) например, то как сделать сдвиг влево(что бы стало 29 - 11101) или в право ( что бы стало 116 - 1110100) ??

Кто сможет помочь? )

[Страдалецъ]

Операции shl и shr
2 shl 1 = 4
4 shr 1 = 2

[malekskv]

Сообщение от Страдалецъ

Операции shl и shr
2 shl 1 = 4
4 shr 1 = 2

Код:

s:=2;
s shl 1;
Label1.Caption:=IntToStr(s);

Должно по идеи выводить 4.. почему выводит 2? )

понял.. можно например написать так S:= 2 shl 1, и будет 4..

А как сделать как у меня? S:=2; S shl 1.. возможно ли так?


Большое спасибо за ответ!

[Drozh]

Код:

s := 2;
s := s shl 1;
Label1.Caption := IntToStr(s);

[malekskv]

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

Код:

s := 2;
s := s shl 1;
Label1.Caption := IntToStr(s);

Тюфу, так просто... Спасибо))

Еще вопрос.. как подобным образом можно умножать\делить на 3,5,6 и так далее.. и возможно ли так?

[Ultras]

наверное так: )))

Код:

var
  sq: double;
begin
  s := 2;
  s := s shl 1;
  sq := s / 3;
  // sq := s div 3; //если на цело
  Label1.Caption := FloatToStr(s);
end;

[Страдалецъ]

Нет, сдвиг это всегда деление/умножение на 2 в степени N, поэтому можно на 2,4,8 и т.д. но нельзя на 3,5,6

[Ultras]

Сообщение от Страдалецъ

Нет, сдвиг это всегда деление/умножение на 2 в степени N, поэтому можно на 2,4,8 и т.д. но нельзя на 3,5,6

аааа, вон к чему, я думал можно ли полученное число разделить потом на 3,5,6 ))))