Вопрос по информатике:
Написать программу обмена переменных x и y , без использования дополнительных велечин ,
( это надо делать в Pascal)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.11.2015 08:21
- Информатика
- remove_red_eye 7772
- thumb_up 44
Ответы и объяснения 1
Var
a,b:integer;
begin
a:=50; b:=-20; { начальное присванивание }
Writeln('Исходные значения: a=',a,', b=',b);
a:=a+b; b:=a-b; a:=a-b;
Writeln('Обмен после "арифметического" способа: a=',a,', b=',b);
a:=50; b:=-20; { начальное присванивание }
a:=a xor b; b:=a xor b; a:=a xor b;
Writeln('Обмен после "логического" способа: a=',a,', b=',b)
end.
Результат выполнения программы:
Исходные значения: a=50, b=-20
Обмен после "арифметического" способа: a=-20, b=50
Обмен после "логического" способа: a=-20, b=50
- 17.11.2015 07:23
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.