Паскаль

[maziLa]

Ребята помогите разобраться...вот например мне надо поменять значения двух переменных а b(это всё надо сделать с помощью функции и процедуры).Я это делаю так:

Function obmen (var a, b : real):real;
           var temp : real;
Begin
  temp := a;
  a:=b;
  b:= temp;
obmen := 0;
end;

Procedure obmen (var a, b :real );
  var temp : real;
Begin
  temp := a;
  a:=b;
  b:= temp;
end;

Вот...А вот мне интересно можно ли это сделать без 3-ей переменной (в данном случ. "темп")?..
Если да то как?

[puporev]

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

[capta1n]

любое арифметическое действие между двумя числами - если целые, то деление в данном случае использовать не следует - для отсального - все возможное

[puporev]

любое арифметическое действие между двумя числами - если целые, то деление в данном случае использовать не следует - для отсального - все возможное

Если нельзя использовать деление, значит нельзя и умножение. Что остается? Сложение и вычитание.

[capta1n]

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

[puporev]

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

Вот Вы написали
a:=a*b;
Значит надо сейчас писать
b:=a/b;
a:=a/b; а это нельзя, значит и умножать незачем.

[capta1n]

Значит надо сейчас писать
b:=a/b;
a:=a/b; а это нельзя, значит и умножать незачем.

Значит надо сейчас писать
b:=trunc(a/b);
a:=trunc(a/b); а это МОЖНО, значит и умножать ЕСТЬ ЗАЧЕМ. ))))

xD

[capta1n]

а вот обратно нельзя! Как говорит наш добрый дедушка - преподаватель по высшей математике - "обратное, вообще говоря, неверно!"