Создайте процедуру, которая сортирует три аргумента - 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;

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

  1. Создается процедура sort, которая принимает три аргумента типа real.
  2. Объявляются три переменные типа real: a, b и c, которые будут использоваться для сортировки.
  3. Внутренний цикл проверяет, если первый аргумент (a) больше второго (b). Если это так, то значения переменных меняются местами.
  4. Затем внутренний цикл проверяет, если второй аргумент (b) больше третьего (c). Если это так, то значения переменных меняются местами.
  5. Если первый аргумент (a) все еще больше второго (b), то внутренний цикл повторяется, чтобы проверить, если третий аргумент (c) больше второго (b). Если это так, то значения переменных меняются местами.
  6. Конец процедуры.

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

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