Question

Добавьте, пожалуйста, что-то к этой программе, чтоб она сортировала четыре числа в порядке убывания. var a, b, c, t: integer; begin readln(a, b, c); 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; writeln(a, ' ', b, ' ', c); end.​

Answer 1

Ответ:

"swap(x,y)" эквивалентно следующему коду:

begin

t := x;

x := y;

y := t;

end;

Можно использовать функцию swap, чтобы не получалось слишком громоздко.

var a, b, c, d, t: integer;

begin

readln(a, b, c, d);

if (b>a) then swap(a,b);

if (c>a) then swap(c,a);

if (d>a) then swap(d,a);

if (c>b) then swap(c,b);

if (d>b) then swap(d,b);

if (d>c) then swap(d,c);

writeln(a, ' ', b, ' ', c, ' ', d);

end.

Answer 2

Чтобы программа сортировала четыре числа в порядке убывания, нужно добавить еще одну переменную и дополнительные условия. Вот исправленный код:

pascalCopy code
var
  a, b, c, d, t: integer;

begin
  readln(a, b, c, d);

  // Сортировка первых двух чисел
  if a < b then
  begin
    t := a;
    a := b;
    b := t;
  end;

  // Сортировка вторых двух чисел
  if c < d then
  begin
    t := c;
    c := d;
    d := t;
  end;

  // Сортировка последних двух чисел
  if b < c then
  begin
    t := b;
    b := c;
    c := t;

    if a < b then
    begin
      t := a;
      a := b;
      b := t;
    end;
  end;

  writeln(a, ' ', b, ' ', c, ' ', d);
end.

Теперь программа сможет сортировать четыре числа в порядке убывания.