Поменять значения переменных.

[Shevali]

Всего несколько дней изучаю (самостоятельно) Паскаль, попалась такая задачка: Поменять между собой значения двух переменных (не используя третьей переменной). Я делал так:

var
a, b: integer;
begin
write ('vvesti a:  ');
readln (a);
write ('vvesti b:  ');
readln (b);
a:=b:
writeln('a:  ',a);
b:=a;
writeln ('b:  ',b);
end.

Значению a присваивается значение b, а вот значению b присваивается значение a но уже изменённое (а не начальное). Видимо нужно ввести в программу что-то ещё, только я незнаю что. Подскажите.
Спасибо.

[alex_fcsm]

a:=a+b;
b:=a-b;
a:=a-b;

Советую посмотреть как это работает в отладчике(через F7 и Watch)

[Shevali]

Если так, то действительно получается. Спасибо.

[Serge_Bliznykov]

Поменять между собой значения двух переменных (не используя третьей переменной)

кстати, если задание точно в такой формулировке, то, в общем случае, задача решения не имеет! Тип данных у переменных в задаче не задан.
А он может быть, например, массивом, или множеством, или, просто напросто строкой! :-( (про пользовательские типы данных я уже просто молчу.. )

А предложенное выше решение и для Integer не так безоблачно:
попробуйте код при больших значениях a и b (например, a := MaxInt и b:= MaxInt) :-(

В случае целочисленных типов (byte, word, Integer, LongInt) можно предложить такой способ:

var
  a, b : Integer;
begin
  a := MaxInt;
  b := 38;
  a := a xor b;
  b := a xor b; 
  a := a xor b;
end.

[NaNamIT]

Подробное решение на сайте http://solution.3dn.ru/publ/zadachi/a_i_b/1-1-0-12
Подробно все рассказанно и показанно на примерах советую посмотреть

[Serge_Bliznykov]

Сообщение от NaNamIT

Подробное решение на сайте http://solution.3dn.ru/publ/zadachi/a_i_b/1-1-0-12
Подробно все рассказанно и показанно на примерах советую посмотреть

Угу. Достаточно подробно.
но.
первое. Ничего более нового (по сравнению с тем, о чём было сказано в данной теме) там не говорится.

второе. И, главное, делается та же самая ошибка, что и в исходном задании: ничего не сказано про тип данных!!!!
Это, по меньшей мере, - НЕ КОРРЕКТНО! ;(

вот, попробуйте поменять значения переменных A и B, если они, например, строкового типа:

var A, B : string;
begin
   A := 'Кукареку!';
   B := 'Два';

  ????

[SaLoKiN]

var A, B : string;
begin
A := 'Кукареку!';
B := 'Два';

A= сцепитьстроки

B= Удалить из A кол-во символов равное B справа
A= Удалить из A кол-во символов равное А слева

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

[Аватар]

  A:='Кукареку!';
  B:='Два';
  A:=A+B;
  B:=Copy(A,1,Length(A)-Length(B));
  A:=Copy(A,Length(B)+1,Length(A)-Length(B));

Подойдет?

ADD

SaLoKiN +1, вот именно

Ой, а теме то 100 лет скоро будет

[Serge_Bliznykov]

Аватар, SaLoKiN - отлично!!! (хоть и не соответствует изложенному статье! )

"продолжаем разговор..." (c) Карлсон..

а если A и B типа double?

  a, b : double;
begin
  a := 0.000037457;
  b := 2.12E14;
  ???

а если A и B типа множество?

var
  a, b : set of byte;
begin
  a := [1,2,3,30,50,100];
  b := [1, 3, 6, 9, 12];

  ????

Задача, разумеется, та же самая - поменять их местами без использования доп.переменных.

[Вадим Мошев]

Сергей

а если A и B типа double?

А в чём здесь прикол? Почему нельзя использовать

a:=a+b;
b:=a-b;
a:=a-b;

?
===============================

А если множества не пересекаются, то, рискну предположить, что для них подойдёт тот же код, что и выше (операторы + и - определены и для паскалевских множеств)