procedure change(var a,b:integer)
Begin
asm
mov eax, a
push eax
mov eax, b
push eax
pop eax
mov a, eax
pop eax
mov b, eax
end;
end;
Поменять местами значения(Delphi)
[SIZE="2"]В общем, думал над задачей, не могу придумать, как решить.
Условие
Даны два числа - a и b. Например, a=2; b=3. Им присваиваются некоторые значения. Необходимо поменять местами эти числа (то есть a=3, b=2). НО не используя операцию присваивания.
Нам дали подсказку, что можно обойтись только операциями сложения и вычитания.
Язык: Delphi 7.[/SIZE]
Условие
Даны два числа - a и b. Например, a=2; b=3. Им присваиваются некоторые значения. Необходимо поменять местами эти числа (то есть a=3, b=2). НО не используя операцию присваивания.
Нам дали подсказку, что можно обойтись только операциями сложения и вычитания.
Язык: Delphi 7.[/SIZE]
a:= 2
b:= 3
a:= a+b // a = 5
b:= a-b // b = 2
a:= a-b // a = 3
b:= 3
a:= a+b // a = 5
b:= a-b // b = 2
a:= a-b // a = 3
не знаю как в Дельфи, но в Си есть операция XOR (побитовая операция), вот при помощи этой операции более правильно менять 2 значения:
a := a xor b
b := b xor a
a := a xor b
a := a xor b
b := b xor a
a := a xor b
А можно сделать вставку на asm ; )
Шутка конечно...
netw00rk дал рабочий пример. можно юзать)
Код:
Шутка конечно...
netw00rk дал рабочий пример. можно юзать)
Цитата: netw00rk
a:= 2
b:= 3
a:= a+b // a = 5
b:= a-b // b = 2
a:= a-b // a = 3
b:= 3
a:= a+b // a = 5
b:= a-b // b = 2
a:= a-b // a = 3
Спасибо огромное.
- не знаю как в Дельфи, но в Си
У меня Делфи.