Процедура обмена значений двух переменных - Free Pascal

Формулировка задачи:

Как сделать procedure swap с двумя переменными?

Решение задачи: «Процедура обмена значений двух переменных»

Листинг программы

program NN;
 
var
  n, i: integer;
label
  1, 9;
begin
  n := 103;
  i := -1022;
  writeln(n: 10, i: 10);
  n := n xor i;
  i := n xor i;
  n := n xor i;
  writeln(n: 10, i: 10);
end.

Объяснение кода листинга программы

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

Изначально, переменным n присваивается значение 103, а переменной i - значение -1022.
Выводится сообщение с значениями переменных n и i (10 и 10).
Затем, с помощью операции XOR (исключающее ИЛИ) происходит обмен значений между переменными n и i.
После этого, снова выводится сообщение с значениями переменных n и i (10 и 10).

Оцени полезность:

12 голосов , оценка 4.333 из 5

Похожие ответы