Составить программу перестановки значений переменных a, b, c в порядке возрастания - Pascal ABC
Формулировка задачи:
Составить программу перестановки значений переменных a, b, c в порядке возрастания, т.е чтобы а<b<c. Процедурой.
Решение задачи: «Составить программу перестановки значений переменных a, b, c в порядке возрастания»
textual
Листинг программы
Procedure Swap(Var n1,n2 : Integer); Begin n1:=n1+n2; n2:=n1-n2; n1:=n1-n2; end; ... If a>b then Swap(a,b); If b>c then Swap(b,c); If a>b then Swap(a,b);
Объяснение кода листинга программы
В данном коде представлен метод для обмена двух чисел в порядке возрастания.
- Объявляются две переменные n1 и n2 типа Integer (целое число).
- Создается процедура Swap, которая принимает две переменные n1 и n2 типа Integer в качестве параметров.
- Внутри процедуры выполняется обмен значениями переменных n1 и n2. Для этого значения переменных n1 и n2 складываются, вычитаются и снова вычитаются.
- Затем выполняется проверка условия a>b. Если это условие истинно, то происходит вызов процедуры Swap для переменных a и b.
- После этого выполняется проверка условия b>c. Если это условие истинно, то происходит вызов процедуры Swap для переменных b и c.
- Наконец, выполняется еще одна проверка условия a>b. Если это условие истинно, то происходит вызов процедуры Swap для переменных a и b. Таким образом, данный код выполняет последовательный обмен значениями переменных a, b, c в порядке возрастания.