[boxep]

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

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
   i,r,j,k:word;
   flag:boolean;
begin
Form1.ListBox2.Clear;
   SetLength(B,N);
   repeat
  for j:=1 to 2 do
    begin
      flag:=false;
      i:=j;
        while i<n do
        begin
          if B[i]>B[i+1] then
          begin
            r:=B[i+1];
            B[i+1]:=B[i];
            B[i]:=r;
            flag:=true;
            end;
          i:=i+2
          end;
          end;
        until flag=false;
  for i:=0 to n-1 do
   Form1.ListBox2.Items.Add(IntToStr(B[i]));

[boxep]

Никто не знает?

[TOJluK]

Массив начинаеися с нулевого эл-та.

[boxep]

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

Массив начинаеися с нулевого эл-та.

Да, это я знаю, только не понимаю что надо сделать?
Я исправил, там неверно написал вывод массива в стрингрид, в этом случае не сортируется первый элемент

[TOJluK]

Так попробуй

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
   i,r,j,k:word;
   flag:boolean;
begin
Form1.ListBox2.Clear;
   SetLength(B,N);
   repeat
  for j:=0 to 1 do
    begin
      flag:=false;
      i:=j;
        while i<n-1 do
        begin
          if B[i]>B[i+1] then
          begin
            r:=B[i+1];
            B[i+1]:=B[i];
            B[i]:=r;
            flag:=true;
            end;
          i:=i+2
          end;
          end;
        until flag=false;
  for i:=0 to n-1 do
   Form1.ListBox2.Items.Add(IntToStr(B[i]));

[boxep]

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

Так попробуй

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
   i,r,j,k:word;
   flag:boolean;
begin
Form1.ListBox2.Clear;
   SetLength(B,N);
   repeat
  for j:=0 to 1 do
    begin
      flag:=false;
      i:=j;
        while i<n-1 do
        begin
          if B[i]>B[i+1] then
          begin
            r:=B[i+1];
            B[i+1]:=B[i];
            B[i]:=r;
            flag:=true;
            end;
          i:=i+2
          end;
          end;
        until flag=false;
  for i:=0 to n-1 do
   Form1.ListBox2.Items.Add(IntToStr(B[i]));

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

[UNAT]

я конечно не могу сходу сказать что тут не так, но может быть тебе поможет совет поставить брикпоинт в начале этой процедуры и потом с помощью клавиши F7 и окна со значениями переменных посмотреть что и где делается не так как хотелосьбы. Обычно у меня такие ошибки таким способом находились минут за 5.