Перестановка чисел без третей переменной. В данной статье рассмотрим способ, как поменять местами значения двух переменных без использования третей.
Для этого нам понадобится, скажем, два 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, но и в других языках.