Поменять местами содержимое переменных

На этой странице дано решение примеров Begin22 - Begin24 из задачника Абрамяна. Здесь мы меняем значения переменных местами.

Begin22. Поменять местами содержимое переменных A и B и вывести новые значения A и B.

var
  A, B, v: real;

begin
  write('Введите число A: ');
  readln(A);
  write('Введите число B: ');
  readln(B);
  v := A; { <-- Значение А записываем в v }
  A := B; { <-- Значение В записываем в А }
  B := v; { <-- Значение А записываем в В, поскольку v = A }
  writeln('Результат:');
  writeln(' A = ', A, ', B = ', B);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸ Begin23. Даны переменные A, B, C. Изменить их значения, переместив содержимое A в B, B — в C, C — в A, и вывести новые значения переменных A, B, C.

Первый вариант использует результат предыдущей задачи Begin22:

var
  A, B, C, v: real;

begin
  write('A = ');
  readln(A);
  write('B = ');
  readln(B);
  write('C = ');
  readln(C);
  { A и C меняем местами: }
  v := A;
  A := C;
  C := v;
  { B и C меняем местами: }
  v := B;
  B := C;
  C := v;
  writeln('Результат:');
  writeln(' A = ', A, ', B = ', B, ', C = ', C);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸ Второй вариант использует две переменные:

var
  A, B, C, v, w: real;

begin
  write('A = ');
  readln(A);
  write('B = ');
  readln(B);
  write('C = ');
  readln(C);
  v := B; { <-- запоминаем число B }
  w := C; { <-- запоминаем число С }
  B := A; { <-- A перемещаем в B }
  C := v; { <-- B перемещаем в C }
  A := w; { <-- B перемещаем в C }
  writeln('Результат:');
  writeln(' A = ', A, ', B = ', B, ', C = ', C);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸ Begin24. Даны переменные A, B, C. Изменить их значения, переместив содержимое A в C, C — в B, B — в A, и вывести новые значения переменных A, B, C.

Первый вариант использует результат задачи Begin22:

var
  A, B, C, v: real;

begin
  write('A = ');
  readln(A);
  write('B = ');
  readln(B);
  write('C = ');
  readln(C);
  { A и C меняем местами: }
  v := A;
  A := C;
  C := v;
  { A и B меняем местами: }
  v := A;
  A := B;
  B := v;
  writeln('Результат:');
  writeln(' A = ', A, ', B = ', B, ', C = ', C);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸ Второй вариант использует две переменные:

var
  A, B, C, v, w: real;

begin
  write('A = ');
  readln(A);
  write('B = ');
  readln(B);
  write('C = ');
  readln(C);
  v := B; { <-- запоминаем число B }
  w := C; { <-- запоминаем число С }
  C := A; { <-- A перемещаем в C }
  B := w; { <-- C перемещаем в B }
  A := v; { <-- B перемещаем в A }
  writeln('Результат:');
  writeln(' A = ', A, ', B = ', B, ', C = ', C);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸