Составить программу перестановки значений переменных 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);

Объяснение кода листинга программы

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

  1. Объявляются две переменные n1 и n2 типа Integer (целое число).
  2. Создается процедура Swap, которая принимает две переменные n1 и n2 типа Integer в качестве параметров.
  3. Внутри процедуры выполняется обмен значениями переменных n1 и n2. Для этого значения переменных n1 и n2 складываются, вычитаются и снова вычитаются.
  4. Затем выполняется проверка условия a>b. Если это условие истинно, то происходит вызов процедуры Swap для переменных a и b.
  5. После этого выполняется проверка условия b>c. Если это условие истинно, то происходит вызов процедуры Swap для переменных b и c.
  6. Наконец, выполняется еще одна проверка условия a>b. Если это условие истинно, то происходит вызов процедуры Swap для переменных a и b. Таким образом, данный код выполняет последовательный обмен значениями переменных a, b, c в порядке возрастания.

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы