Question

Составить программу сортировки 2-х переменных по убыванию, письменно. На Pascal

Answer 1

var a,b:real;

begin

readln(a,b);

if a>b then writeln(a,' ',b)  

else writeln(b,' ',a);

end.

Answer 2

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (a, b) := ReadReal2('Введите через пробел два числа;');

 if a < b then Swap(a, b); // a - всегда не меньше b

 Print('По невозрастанию:', a, b)

end.

Пример:

Введите через пробел два числа; 3.6 10

По невозрастанию: 10 3.6

Answer 3

Для сортировки двух переменных по убыванию воспользуемся простым алгоритмом обмена значений. Напишем программу на языке Pascal:

pascalCopy code
program SortTwoVariables;

var
  a, b, temp: Integer;

begin
  // Ввод значений переменных a и b
  writeln('Введите значение a:');
  readln(a);
  
  writeln('Введите значение b:');
  readln(b);
  
  // Сортировка по убыванию
  if a < b then
  begin
    temp := a;
    a := b;
    b := temp;
  end;
  
  // Вывод отсортированных значений
  writeln('Отсортированные значения по убыванию:');
  writeln('a = ', a);
  writeln('b = ', b);
end.

В данной программе пользователю предлагается ввести два значения (a и b), после чего алгоритм сортирует их по убыванию и выводит отсортированные значения на экран.

Пример работы программы:

makefileCopy code
Введите значение a:
7
Введите значение b:
3
Отсортированные значения по убыванию:
a = 7
b = 3