Delphi-Help

Главная Статьи Сортировка Компактный код для сортировки массива

Компактный код для сортировки массива

Оцените материал
(0 голосов)


Компактный код для сортировки массива

{Очень небольшой код для сортировки массива.
 Состоит из двух циклов for.
Сортирует от большего к меньшему.}
 
for i:= 1 to 5 do begin //отвечает за место старта проверки
    for j:= i to 5 do begin //сам цикл поверки
      if (x[j]) > (x[i]) then begin //если следующее число больше i,то
        a:= x[j]; //
        x[j]:= x[i]; //меняем местами
        x[i]:= a; //
      end;
    end;
  end;

Пример использования:

var
  x: array [1..5] of integer;
  a,k,i,j: integer;
 
 
begin
  writeln ('Vvedite massiv!!!');
  for k:= 1 to 4 do begin //вводим массив
    read (x[k]); //--,--
  end; //--,--
  readln (x[5]); //--,--
  for i:= 1 to 5 do begin //отвечает за место старта проверки
    for j:= i to 5 do begin //сам цикл поверки
      if (x[j]) > (x[i]) then begin //если следующеее число больше i,то
        a:= x[j]; //
        x[j]:= x[i]; //меняем местами
        x[i]:= a; //
      end;
    end;
  end;
  for k:= 1 to 4 do begin //
    write (x[k],' '); //
  end; // выводим массив
  writeln (x[5]); //
  readln; // 
end.
Прочитано 4620 раз

Авторизация



Счетчики