6. Напишите программу обмена значений переменных a, b, с в порядке возрастания, т. е. так, чтобы a < b < c. Используйте процедуру swap.
procedure swap(var x, y: integer);
var m: integer;
begin
m:=x;
x:=y;
y:=m
end;
Исходные данные вводятся с клавиатуры.
Пример входных данных
123
213
312
231
Пример выходных данных
123
123
123
123
Ответ
Вот пример программы на Паскале, которая осуществляет обмен значений переменных a, b и с в порядке возрастания с использованием процедуры swap:
program VariableSwap;
procedure swap(var x, y: integer);
var
m: integer;
begin
m := x;
x := y;
y := m;
end;
var
a, b, c: integer;
begin
writeln('Введите значения переменных a, b и c:');
readln(a, b, c);
if a > b then
swap(a, b);
if b > c then
swap(b, c);
if a > b then
swap(a, b);
writeln('Значения переменных a, b и c в порядке возрастания:');
writeln(a);
writeln(b);
writeln(c);
end.В этой программе мы сначала определяем процедуру swap, которая принимает две переменные по ссылке и меняет их значения местами.
Затем мы объявляем переменные a, b и c.
После этого мы запрашиваем у пользователя ввод значений переменных a, b и c.
Затем мы применяем условные операторы if для проверки порядка значений переменных и вызываем процедуру swap, если необходимо, чтобы значения были в порядке возрастания.
В конце мы выводим значения переменных a, b и c в порядке возрастания.
Пример работы программы:
Введите значения переменных a, b и c:
123
213
312
Значения переменных a, b и c в порядке возрастания:
123
213
312