[PhoeniX]

Очень хороший метод нашёлся в просторах Сети:

Код:

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;

А теперь вопрос на логику - как "свапнуть" три значения?

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

Что-то мне подсказывает, что свапнуть 3 значение в классическом случае нельзя, т.к. неясно какое значение куда свапать.

[v1s2222]

А конкретно? 3 переменных: А, B, С, поменять A <-> C, а с переменной B что делать?
Кстати обмен чисел (2 переменных):

Код:

var
  a, b: Integer;
begin
  a := 2;
  b := 3;

  a := a+b;
  b := a-b; // b = 2
  a := a-b; // a = 3

Кстати вот задачка не по теме: сравнить и вывести большее число без использования if, while, for. В С это решилось бы проще, а вот в паскале...
ЗЫ решение для паскаля:

Код:

WriteLn('Большее число = ',  (a+b + abs(a-b))/2:0:0);

[NumLock]

я так понимаю, что A -> B, B -> C, C -> A
XCHG рулит)))
добавлено позже

Код:

var
  a, b: Integer;
begin
  a := 2;
  b := 3;

  a := a+b;
  b := a-b; // b = 2
  a := a-b; // a = 3

можно переполнение a+b схватить

[PhoeniX]

ну, можно и на xchg сделать
Да, именно

A -> B, B -> C, C -> A

В моём случае это

Код:

    x:=x xor y;
    y:=y xor x;
    x:=x xor y;

    z:=z xor y;
    y:=y xor z;
    z:=z xor y;

В случае с xchg:

Код:

  xchg ax,bx
  xchg bx,cx

P.S. а asm-то рулит

[PhoeniX]

Ну, а если быть совсем точным:

Код:

  // x <=> y
  asm
    mov eax,y
    xchg x,eax
    mov y,eax
  end;

  // x <= y <= z
  asm
    mov eax,y
    xchg x,eax
    xchg z,eax
    mov y,eax
  end;

  // x => y => z
  asm
    mov eax,y
    xchg z,eax
    xchg x,eax
    mov y,eax
  end;

[einstein]

через стек можно. изменяя очередность пушей и попов.

[M.A.D.M.A.N.]

Сообщение от DJ PhoeniX

Ну, а если быть совсем точным:

Код:

  // x <=> y
  asm
    mov eax,y
    xchg x,eax
    mov y,eax
  end;

  // x <= y <= z
  asm
    mov eax,y
    xchg x,eax
    xchg z,eax
    mov y,eax
  end;

  // x => y => z
  asm
    mov eax,y
    xchg z,eax
    xchg x,eax
    mov y,eax
  end;

Оное чтоли?