Создайте процедуру, которая сортирует три аргумента - Turbo Pascal
Формулировка задачи:
Создайте процедуру, которая сортирует три аргумента по возрастанию: так чтобы в 1-ый аргумент попало самое
маленькое число, во 2-ой – среднее, в 3-ий самое большое.
Решение задачи: «Создайте процедуру, которая сортирует три аргумента»
textual
Листинг программы
procedure sort(var a,b,c:real); var t:real; begin if a>b then begin t:=a; a:=b; b:=t; end; if b>c then begin t:=b;b:=c;c:=t; end; if a>b then begin t:=a; a:=b; b:=t; end; end;
Объяснение кода листинга программы
- Создается процедура sort, которая принимает три аргумента типа real.
- Объявляются три переменные типа real: a, b и c, которые будут использоваться для сортировки.
- Внутренний цикл проверяет, если первый аргумент (a) больше второго (b). Если это так, то значения переменных меняются местами.
- Затем внутренний цикл проверяет, если второй аргумент (b) больше третьего (c). Если это так, то значения переменных меняются местами.
- Если первый аргумент (a) все еще больше второго (b), то внутренний цикл повторяется, чтобы проверить, если третий аргумент (c) больше второго (b). Если это так, то значения переменных меняются местами.
- Конец процедуры.