Проверьте правильность установки счетчиков

[QuadroX]

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

Вот процедура сортировки простыми вставками:

// процедура сортировки вставками
procedure InsertionSort(var A: TData; var SCount, PCount: Integer);
var
  Key, I, J: Integer;
begin
  SCount := 0;
  PCount := 0;
  for J := 2 to N do begin
    Inc(SCount);
    Key := A[J];
    I := J - 1;
    while ((I >= 1)and (A[I] > Key)) do begin
      Inc(PCount);
      A[I+1] := A[I];
      I := I - 1;
      A[I+1] := Key;
    end;
  end;
end;

В ней установлено два счетчика. Не уверен точно в правильности т.к. делал их сам . SCount - счетчик сравнений; PCount - счетчик перестановок.

Аналогично с предыдущей процедурой нужно установить такие же счетчики в процедуру сортировки бинарными вставками.

Вот она:

// процедура сортировки бинарными вставками
procedure BinInsertionSort(var A: TData; var SCount, PCount: Integer);
var
  I, J, Left, Right, M: Integer;
  Tmp: Integer;
begin
  SCount := 0;
  PCount := 0;
  for I := 2 to N do begin
    Inc(SCount);
    Tmp := A[I];
    Left := 1;
    Right := I - 1;
    while Left <= Right do begin
      M := (Left + Right) div 2;//определение индекса среднего элемента
      if Tmp < A[M] then
        Right := M - 1    // сдвиг правой
      else
        Left := M + 1                //или левой границы
    end;
    for J := I - 1 downto Left do begin
      A[J+1] := A[J]; // сдвиг элементов
     Inc(PCount);
    end;
    A[Left] := Tmp;  // вставка элемента на нужное место
  end;
end;  //  BinInsert

Кто хорошо разбирается в логике этих процедур проверьте правильность счетчиков. Проверить мне не на чем. Тестов нет никаких.

[Anatole]

В ваших процедурах сравнения выполняются в операторах while и if. Следовательно перед ними необходимо увеличивать счетчик сроавнений. При этом не следуат забывать, что сравнения выполняются при каждом выполнении оператора while. А это значит, что в этом цикле также необходимо увеличивать значение счётчика. А это вы не сделали.

[QuadroX]

Большое спасибо. Хоть кто-то откликнулся. =)

Переделал первую.

// процедура сортировки вставками
procedure InsertionSort(var A: TData; var SCount, PCount: Integer);
var
  Key, I, J: Integer;
begin
  SCount := 0;
  PCount := 0;
  for J := 2 to N do begin
    Inc(SCount);
    Key := A[J];
    I := J - 1;
    while ((I >= 1)and (A[i] > Key)) do begin
      Inc(SCount);
      Inc(PCount);
      A[I+1] := A[i];
      I := I - 1;
      A[I+1] := Key;
    end;
  end;
end;

По первой теперь все правильно?

[QuadroX]

Со второй так и не понял где вставить.