[iodjin]

Подскажите, археологу.
http://www.delphisources.ru/forum/sh...ad.php?t=21043 из этой темы

Код:

function BinToGray(b: integer): integer;
begin
  BinToGray := b xor (b shr 1)
end;

В функцию на вход идет целое число, поэтому вводя 10110, я ввожу 10 тысяч сто десять. Логично, что выдает 13505

Как на вход давать двоичное представление, т.е даю 10110, на выходе получаю 11101 ?

[NumLock]

нужно на входе и на выходе иметь значения в одинаковом представлении.

[iodjin]

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

нужно на входе и на выходе иметь значения в одинаковом представлении.

Это понятно. Но в каком?
Т.е как подать на вход число в двоичном представлении

[Aristarh Dark]

Сначала преобразуй двоичное в десятичное, прогони через функцию, и преобразуй обратно десятичное в двоичное. Должно получится.