Паскаль. Сортировка массивов.

Question

Паскаль. Сортировка массивов.

ᅠ ᅠ Гуру (3868), закрыт 11 месяцев назад

Как отсортировать одномерный массив по убыванию/возрастанию? Двумерный получается. А одномерный как правильно?

Answer 1

Смотря какой длины массив. Если не очень размерный, тогда можно сортировать его методами пузырька или прямого выбора, что ещё быстрее, хотя оба метода имеют одинаковую алгоритмическую сложность О(n²), где n - число элементов массива. Если же он состоит из сотен тысяч или миллионов компонент, то пузырьковая сортировка, естественно, сразу отпадает. А вот пример как её можно реализовать:

 uses crt;  
var a, b, c, i, j, n: integer; 
X: array of longint; 
 
procedure print(); 
begin 
  j := 0; 
  for i := 0 to n do 
    begin 
      inc(j); 
      write(X[i]: 7); 
      if j = 10 then 
        begin 
          j := 0; 
          writeln 
        end 
    end; 
  if j > 0 then writeln 
end; 
 
begin 
  textbackground(white); 
  textcolor(black); 
  clrscr; 
  write('a b N » '); 
  readln(a, b, n); 
  randomize(); 
  setlength(X, N); 
  dec(n); 
  c := b + 1 - a; 
  for i := 0 to n do X[i] := a + random(c); 
  writeln('Исходный рандомный массив:'); 
  print(); 
  for i := 1 to n do 
    for j := n downto i do 
      if X[j - 1] > X[j] then 
        begin 
          c := X[j - 1]; 
          X[j - 1] := X[j]; 
          X[j] := c 
        end; 
  writeln('Массив после сортировки по возрастанию:'); 
  print() 
end.