[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.]

Нифига не понел.

Код:

  asm
    xor eax, eax
    xor ecx, ecx
    mov eax, $99
    mov ecx, $4B
    xor eax, ecx
    xor ecx, eax
    xor eax, ecx
    mov x, eax
    mov y, ecx
  end;

хитрую подмену сделал бы как-то так:

Код:

  asm
  .... зануливание регистров
    mov eax, x
    mov ecx, y
    mov edx, z
    mov x, edx
    mov y, eax
    mov z, eax
  end;

[PhoeniX]

У тебя 6 строк в asm, без учёта обнуления регистров. С xchg это 4 строки, как я выше написал.

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

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

У тебя 6 строк в asm, без учёта обнуления регистров. С xchg это 4 строки, как я выше написал.

По 3 раза
К чему вся это фалометрия?

[PhoeniX]

Зачем по 3 раза? Я ж написал полный код...

[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;

Оное чтоли?

[angvelem]

Ну если asm, то можно и так:

Код:

  asm
    push X
    mov  eax, Y
    mov  X, eax
    pop  Y
  end;

P.S. для 2 переменных.

[NumLock]

а стеком то можно сколько угодно переменных "менять местами":

Код:

var
  a, b, c, d: Integer;
begin
  a:=13;
  b:=11;
  c:=1973;
  d:=$ff;
  Edit1.Text:=IntToStr(a);
  Edit2.Text:=IntToStr(b);
  Edit3.Text:=IntToStr(c);
  Edit7.Text:=IntToStr(d);
  asm
    push a
    push b
    push c
    push d

    pop b
    pop c
    pop d
    pop a
  end;
  Edit4.Text:=IntToStr(a);
  Edit5.Text:=IntToStr(b);
  Edit6.Text:=IntToStr(c);
  Edit8.Text:=IntToStr(d);
end;

[Bargest]

Стеком сколько угодно, пока не будет переполнения.
Еще один извращенский вариант:

Код:

var
   a,b,c,d,...,z:integer;
begin
 asm
  mov esi, offset z
  mov ecx, 25
  mov ebx, z
  @1:
     sub esi, 4
     mov eax, [esi]
     mov [esi+4], eax
     loop @1
  mov eax, [esi]
  mov a, ebx  
 end;
end;

Правда сработает ТОЛЬКО если эти переменные подряд объявлены и если компилятор не поменяет их порядок.
Хотя обычно компилятор такой ерундой не занимается.