BorlanD Russian Сommunity

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

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

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

Просмотров: 2132 | Категория: Delphi 7 | Дата: 11.05.2008