Главная

Обмен значений переменных

пт, 08/10/2012 - 02:35 — tech
Задача: 

Обменять значения двух переменных, используя третью (буферную) переменную.

Описание переменных: 

x - первая переменная;
y - вторая переменная;
b - буферная переменная (для хранения значения другой переменной).

Алгоритм решения задачи: 

Обмен значений двух переменных протекает по следующему алгоритму:

  1. В буферной переменной сохраняется значение первой переменной.
  2. Первой переменной присваивается значение второй.
  3. Второй переменной присваивается значение буферной переменной, это значение равно старому значению первой переменной.
Программа на языке Паскаль:  

var x, y, b: integer;
begin
    write ('Input first number: ');
    readln (x);
    write ('Input second number: ');
    readln (y);
 
    writeln ('x = ', x, ', y = ', y);
    writeln ('Changing values... changing values...');
 
    b := x;
    x := y;
    y := b;
 
    writeln ('x = ', x, ', y = ', y);
 
readln
end.

  • Добавить комментарий

Комментарии

Пнд, 10/14/2013 - 16:58 — Гость

А зачем в конце писать

А зачем в конце писать readln?

  • ответить
Втр, 10/15/2013 - 13:28 — tech

Чтобы окно с выполненной

Чтобы окно с выполненной программой сразу не закрывалось.

  • ответить
пт, 04/26/2013 - 11:33 — Гость

Вопрос по синтаксису

А нужна ли точка с запятой после "readln" (перед "end.")?

  • ответить
Втр, 08/27/2013 - 08:13 — Гость

";" перед "end."

не обязательна, хотя Turbo Pascal в некоторых случаях не компилировал из-за ее отсутствия

  • ответить
вс, 11/18/2012 - 12:49 — Гость

Перемещение значений без буферной переменной

А можно обойтись без буферной переменной:

x:=x+y;
y:=x-y;
x:=x-y

  • ответить
Пнд, 11/19/2012 - 10:32 — Гость

https://pas1.ru/comment/reply/1060/3119

x:=x+y;
y:=y-x;
x:=x-y

наверно так ?

  • ответить
ср, 12/05/2012 - 20:44 — Гость

нет ты не прав смотри,

нет ты не прав смотри, подставляем вместо x или y текущее значение этих переменных:

в 1-ом случае
x:=x+y;
y:=x-y; (x+y)-y=x
x:=x-y (x+y)-x=y
____________
x=y
y=x

в твоем случае

x:=x+y;
y:=y-x; y-(x+y)=-x
x:=x-y (x+y)-(-x)=2x+y
___________________
y=-x
x=2x+y

P.S неужели это так сложно?

  • ответить
чт, 04/25/2013 - 03:12 — Гость

это у тебя ошибка!!

пересмотри свои подстановки и не вводи людей в заблуждение

  • ответить
пт, 05/10/2013 - 19:13 — Гость

Достаточно лишь подумать)

x:=x+y;
y:=x-y;
x:=x-y;
Все тут верно!)
Не верится? Проверь!)

  • ответить
Пнд, 11/25/2013 - 18:54 — Гость

верно)))

верно)))

  • ответить
чт, 10/17/2013 - 08:12 — Гость

Действительно правильно.

Тут же все просто)

1) Х присвоить Х+У > x=2, y=3, x+y=5 значит, после первого действие Х уже ровно не 2, а 5.
2) y=x-y : x=5, y=3, x-y=2, после второго действия Y= не 3, а 2.
3)x=x-y : x=5, y=2, x-y=3 после третьего действия X= не 5, а 3.

  • ответить