FreePascal.ru

спасибо за консультацию всем!

Sergei I. Gorelkin
А вот это интересно. Спасибо, не знала.

Однако же, если я не могу сейчас сменить процессор, как мне реализовать нужный сдвиг?
К сожалению, мой тн "опыт" позволяет мне думать только об обращении с рез-татом IntToBin, как с массивом чаров, а это, по-моему, не соответствует идее ...

uses crt;

var
kk : longint;

begin

kk := -3;
kk := kk SHR 32;
writeln (kk);

end.

у меня возвращает -3

Как реализовать неротационный (числа, которые "вытеснены" нулями не возвращаются в начало кода, а исчезают навеки) беззнаковый (в независимости от знака числа заполнение нулями) побитовый сдвиг longint'ов (32 бита) ?
[т.е., по сути, сделать аналог >>> из Явы;
input: longint, output: longint ...

Привет, господа!
Получила сегодня крайне расплывчатое задание по программированию, нет возм-ти уточнить.
Насколько я поняла, мне надо реализовать "хэш-фцию" - простую, без ключей, даже без хэш-массива, тупо ф-цию отображения чисел. И состоять она должна где-то из 3-5 бинарных операций.
Гугл ...