ummasha

Я вспомнила, как это сделать (правда, не на Паскале).
Есть 2 переменные: А и В. Поменять их местами можно за 3 действия.
1) А:=А+В; А:=А xor В;
2) В:=А-В; В:= А xor В;
3) А:=А-В; А:=А xor В;

Dr. Evil

В Паскале это делается почти так же:

А:=А+В;
В:=А-В;
А:=А-В;

ummasha

Спасибо

Vladimir_S

Ах вы умницы оба - ну будет вам от Darkcosinus! Я, знаете ли, тоже с чего-то подобного начал - и понеслось: a+b - нельзя (вдруг числа в формате BYTE и оба в районе 250), a-b - тоже нельзя (а вдруг одно из чисел отрицательное) ну и т.п. Сплошной type mismatch. Короче говоря, никак нельзя, потому что всегда можно подобрать такой тип данных и значения, чтобы получился type mismatch! Всё жду, чтобы Darkcosinus выложил, наконец, абсолютно универсальное решение для всех типов данных и всех, даже самых немыслимых, значений параметров. Да вот что-то молчит.

ummasha

Не, на курсах нам это объяснили с точки зрения подходов к программированию:
а) пространственный: есть место под дополнительную переменную, используют программисты Майкрософта
б) временной: есть время подумать над задачей + можно сэкономить место на диске.

Dr. Evil

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

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

Vladimir_S

А Вы просто пройдитесь по теме почти от начала, с #4, там все мои решения и перепалка с Darkcosinus'ом. И про отрицательные числа тоже.

Dr. Evil

А-а-а ) Понял. В вашем решении изначально было одно усложнение, с которым я не согласен -- зачем присваивать х=y-2*x ?

Действительно, я понял, что данный алгоритм имеет свои ограничения, но какое его не имеет. ИМХО Darkcosinus не прав в одном -- он же не указал, какой именно тип данных использовался для переменных, а потом именно по типу данных и начал придираться )

Теперь осталось дождаться официального вердикта )

Vladimir_S

Так я просто, не стремясь к оптимизации, выдал первое пришедшее в голову решение. Мысль шла примерно так - получить величины х+у и х-у а потом из них - новые значения параметров. Действительно, громоздко. Но, тем не менее, решение правильное. Ниже я предложил другое, вроде Вашего - он (Darkcosinus) опять придрался!

Вот и я про то же.

ummasha

Вот еще одна задача из книжки: найти все натуральные числа a,b,c из интервала от 1 до 20, для которых выполняется равенство:а2+ b2 = c2

Program KR_2_Var1_2;
Var a,b,c:integer;
Begin
For a:=1 to 20 do
For b:=1 to 20 do
For c:=1 to 20 do
If sqr(a)+sqr(b)=sqr(c) then writeln(a,' ',b,' ',c);
readln;
end.

Задача решается без всяких проблем, НО: в книжке вместо этого было а*а+b*b=с*с. И это "типа" квадраты чисел?