Тема: Код Грея
Показать сообщение отдельно
  #2  
Старый 12.05.2012, 14:48
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

XOR - логический оператор. В случае чисел производятся битовые операции с двоичным представлением числа.
Тебе нужно перевести строковое представление двоичного числа в собственно число.
примерно так это можо сделать:

Код:
strbinary:='111011101010';
number:=0;
for i:=0 to length(strbinary)-1 do
  if strbinary[length(strbinary)-i]='1' then
    number:=number+(1 shl i);
strbinary - то что было
number - то что будет
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием