Показать сообщение отдельно
  #1  
Старый 04.09.2011, 13:02
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию Обмен значениями без третьей переменной

Очень хороший метод нашёлся в просторах Сети:
Код:
var
  x, y: byte;
begin
  x:=$99; // bin 10011001
  y:=$4B; // bin 01001011
  
  x:=x xor y; // 11010010
  y:=y xor x; // 10011001
  x:=x xor y; // 01001011
end;
А теперь вопрос на логику - как "свапнуть" три значения?
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием