Быстрая сортировка (QuicSort)

[Asya7]

Подскажите пожалуйста, что не так? Вроде по подобию составлялась, но вычисляет не так. Эта сортировка показалась мне самой сложной.
Вот код:

program QuicSort;
type
   DataItem = real;
   DataArray = array [1..80] of DataItem;

var
   i, count: integer;
   v, mas: DataArray;

procedure qSort(l, r: longint);
var
   m, i, j: integer;
   w, q: real;
begin
   v := mas;
   i := l; 
   j := r;
   m:=(l + r) div 2;
   q := v[m];
   repeat
      while (v[i] < q) do inc(i);
      while (q < v[j]) do dec(j);
      if (i <= j) then    {это происходит, если i перешло за q? }
      begin
         w := v[i];
         v[i] := v[j];
         v[j] := w;
         inc(i);
         dec(j);
      end;
   until (i > j); {когда происходит, что i не больше j?}
   if (l < j) then qSort(l, j); {j- это вроде должен быть самый max из левой части, тогда l всегда будет меньше}
   if (i < r) then qSort(i, r);
   
end;

begin
   writeln('введите количество символов');
   readln(count);
   i := 0;
   for i := 1 to count do 
   begin
      write(i, 'i=');
      readln(mas[i]);
   end;   
   qSort(1, count);
   writeln('результирующий массив');
   for i := 1 to count do 
      write(v[i], ', ');
   { конец быстрой сортировки Хоара }   
end.

(Поясните ещё пожалуйста, если знаете те вопросы, которые в скобочках в коде. Литературы прочитано много и выполнение алгоритма по шагам понятно, но как это в программе выполняется не совсем ясно)

[Smitt&Wesson]

Не, чё вы сегодня сговоились? Блин, я уже устал носом тыкать. И мне есть предел. Модеры, да закрепите вы уже эту тему про сортировку. Достала молодёжка.

[Asya7]

Smitt&Wesson, уже всё прочитано! Но непонятности остались. Если вам сложно объяснять, то не нужно.

[Smitt&Wesson]

Сообщение от Asya7

Smitt&Wesson, уже всё прочитано! Но непонятности остались. Если вам сложно объяснять, то не нужно.

Непонятности в чём? В коде или в понимании алгоритма? Как здесь все знают, я не лезу в Паскаль и Делфи, но по алгоритмам могу подсказать. А по С++, могу и с кодом помочь.

[Asya7]

Конечно в алгоритме. (что не понятно в скобочках написано) В общем, не совсем понятно как они меняются местами (i, j) если мы нашли большой слева, то вдруг мы не найдём меньший справа .. И с чем тогда менять его??

[Smitt&Wesson]

Сообщение от Asya7

В общем, не совсем понятно как они меняются местами (i, j)

Переменый шаг.

[Smitt&Wesson]

Сообщение от Asya7

Smitt&Wesson, уже всё прочитано! Но непонятности остались. Если вам сложно объяснять, то не нужно.

Вы сами компиль писали? Ну, тады - ой.

[GreenWizard]

сначала алгоритм/логика, а потом код
я чуть пофилософствую и по-понтуюсь
вам, здоровым, ничего не стоит написать код, стереть, опять написать и так хоть 1000 раз, а вот подумать - это уже сложнее..... ты пишешь быстрее, чем думаешь (с) в этом-то и беда!
моя же история совсем обратная: каждая буква мне даётся с трудом, поэтому я успеваю 100 раз подумать, прежде чем что-то написать
я весьма жесток и категоричен, поэтому, будь это возможно и эффективно, просто бы переломал 9 пальцев, чтоб ты, как я, начал печатать медленнее, чем думаешь, но, увы, гуманизм-дебилизм я не знаю как, но сделай так, чтоб тебе было легче подумать, чем написать! например, печатай одним мизинцем, после каждой строки кода делай по 10 бурпи и т. д.
если считаешь что я шучу, то я могу в ЛС (не хочу светить на форуме) скинуть одно видео, которое ясно покажет что я серьёзно.

[Asya7]

В общем, те моменты так и остались не понятны(в скобочках) , но заменив v на mas всё отлично заработало. Объясните пожалуйста, кто-нибудь хотя бы, почему так произошло??

program QuicSort;

type
   DataItem = integer;
   DataArray = array [1..80] of DataItem;

var
   i, count: integer;
   mas: DataArray;

procedure qSort(l, r: longint);
var
   w, q, m, i, j: integer;

begin
   i := l; 
   j := r;
   m := round((l + r) / 2);
   q := mas[m];
   repeat
      while (mas[i] < q) do inc(i);
      while (q < mas[j]) do dec(j);
      if (i <= j) then 
      begin
         w := mas[i];
         mas[i] := mas[j];
         mas[j] := w;
         inc(i);
         dec(j);
      end;
   until (i > j);
   if (l < j) then qSort(l, j); 
   if (i < r) then qSort(i, r); 
end;

begin
   writeln('введите количество символов');
   readln(count);
   for i := 1 to count do 
   begin
      write(i, 'i=');
      readln(mas[i]);
   end;   
   qSort(1, count);
   writeln('результирующий массив');
   for i := 1 to count do 
      write(mas[i], ', ');
   { конец быстрой сортировки Хоара }   
end.

[GreenWizard]

Сообщение от Asya7

В общем, те моменты так и остались не понятны(в скобочках) , но заменив v на mas всё отлично заработало. Объясните пожалуйста, кто-нибудь хотя бы, почему так произошло??

потому что сортировался массив v, который каждый раз перезаписывался исходным массивом mas (v := mas; )
опять же, имена давай осмысленные, проводи трассировку (ещё лучше, если будешь на листике всё считать, чтоб лучше понять), не спеши писать код, изучи сначала сам алгоритм, посмотри визуализацию на том же ютубе.