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

Previous  Top  Next

    
 

 

Code:

{ **** UBPFD *********** by kladovka.net.ru ****

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

 

Очень небольшой код для сортировки массива. Состоит из двух циклов for.

Сортирует от болшего к меньшему.

 

Зависимости: нет

Автор:       Михон

Copyright:   (<Михон>) (с)

Дата:        14 января 2007 г.

********************************************** }

 

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;

 

 

 

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

Code:

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.

©Drkb::04169