Составьте блок-схему алгоритма решения задачи и программу на языке Turbo Pascal, ввод данных организовать с клавиатуры. Поменять местами значения переменных А и B. Вывести новые значения А и B

Для решения задачи нужно поменять местами значения двух переменных A и B. Обычно для этого используют дополнительную переменную, например C или Temp, чтобы временно сохранить одно из значений.

Например, если:

A = 5
B = 9

после обмена должно получиться:

A = 9
B = 5

Блок-схема алгоритма

Блок-схему можно представить так:

 ┌───────────────┐
 │    Начало     │
 └───────┬───────┘
         │
         ▼
 ┌───────────────┐
 │ Ввести A, B   │
 └───────┬───────┘
         │
         ▼
 ┌───────────────┐
 │ C := A        │
 └───────┬───────┘
         │
         ▼
 ┌───────────────┐
 │ A := B        │
 └───────┬───────┘
         │
         ▼
 ┌───────────────┐
 │ B := C        │
 └───────┬───────┘
         │
         ▼
 ┌───────────────┐
 │ Вывести A, B  │
 └───────┬───────┘
         │
         ▼
 ┌───────────────┐
 │    Конец      │
 └───────────────┘

Описание алгоритма

1. Начало работы программы.

2. Вводятся значения переменных A и B с клавиатуры.

3. Значение переменной A сохраняется во временную переменную C.

4. В переменную A записывается значение переменной B.

5. В переменную B записывается сохранённое значение переменной C.

6. На экран выводятся новые значения переменных A и B.

7. Конец программы.

Программа на языке Turbo Pascal

pascal
program Obmen;

var
  A, B, C: integer;

begin
  writeln('Введите значение A:');
  readln(A);

  writeln('Введите значение B:');
  readln(B);

  C := A;
  A := B;
  B := C;

  writeln('Новые значения переменных:');
  writeln('A = ', A);
  writeln('B = ', B);

  readln;
end.

Пример работы программы

Введите значение A:
10
Введите значение B:
25
Новые значения переменных:
A = 25
B = 10

В этой программе переменная C используется как вспомогательная. Без неё значение переменной A было бы потеряно после выполнения команды A := B.