ВВЕРХ
ВНИЗ

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

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

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

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

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
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.

Begin23. Даны переменные A, B, C. Изменить их значения, переместив содержимое A в B, B — в C, C — в A, и вывести новые значения переменных A, B, C.

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

Блок схема. Begin23. Даны переменные A, B, C. Изменить их значения, переместив содержимое A в B, B — в C, C — в A, и вывести новые значения переменных A, B, C

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
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.

Второй вариант использует две переменные:

Блок схема. Begin23. Даны переменные A, B, C. Изменить их значения, переместив содержимое A в B, B — в C, C — в A, и вывести новые значения переменных A, B, C

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
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.

Begin24. Даны переменные A, B, C. Изменить их значения, переместив содержимое A в C, C — в B, B — в A, и вывести новые значения переменных A, B, C.

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

Блок схема. Begin24. Даны переменные A, B, C. Изменить их значения, переместив содержимое A в C, C — в B, B — в A, и вывести новые значения переменных A, B, C

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
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.

Второй вариант использует две переменные:

Блок схема. Begin24. Даны переменные A, B, C. Изменить их значения, переместив содержимое A в C, C — в B, B — в A, и вывести новые значения переменных A, B, C

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
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.



Яндекс.Метрика