Перестановка чисел без третей переменой

Перестановка чисел без третей переменой. В данной статье рассмотрим способ, как поменять местами значения двух переменных без использования третей.

            Для этого нам понадобится, скажем, два edit и одна кнопка. Разместите эти элементы на форме по своему усмотрению. Для всех edit поставьте свойство text в значение скажем “0”. А для кнопки значение caption в “Вычислить”. После этого можно приступать к написанию кода.

Код для кнопки:

procedure TForm1.Button1Click(Sender: TObject);

var

a,b:integer; //Наши переменные

begin

a:=2; //Присваиваем переменой а значение 2

b:=7; //Присваиваем переменой b значение 7

b:=a-b; //Вычитаем из а b и записываем результат в b

a:=a-b; //Вычитаем из а b и записываем результат в a

b:=b+a; //Складываем а и b и записываем результат в b

edit1.Text:=inttostr(a); //Выводим результат в edit, что бы проверить не врет ли алгорим

edit2.Text:=inttostr(b);

end;

            Как видно из кода его главной составляющей являются три простые математические операции.

Математические операции:

b:=a-b;

a:=a-b;

b:=b+a;

Данные операции можно использовать не только в Delphi, но и в других языках.

Всё на этом статья закончена.