Сравнить сортировку Шелла и сортировку с помощью прямого включения

int increment( long inc[ ], long size )
{
    int p1, p2, p3, s;
    p1 = p2 = p3 = 1;
    s = -1;
    do
    {
        if ( ++s % 2 )
        {
            inc[ s ] = 8 * p1 - 6 * p2 + 1;
        }
        else
        {
            inc[ s ] = 9 * p1 - 9 * p3 + 1;
            p2 *= 2;
            p3 *= 2;
        }
        p1 *= 2;
    }
    while ( 3 * inc[ s ] < size );
 
    return s > 0 ? --s : 0;
}
 
template < class T >
long long shellSort( T a[ ], long size )
{
    long inc, i, j, seq[ 40 ];
    int s;
    long long cnt( 0 );
 
    s = increment( seq, size ); // вычисление последовательности приращений
    while ( s >= 0 ) // сортировка вставками с инкрементами inc[]
    {
        inc = seq[ s-- ];
        for ( i = inc; i < size; ++i )
        {
            T temp = a[ i ];
            for ( j = i - inc; ( j >= 0 ) && ( a[ j ] > temp ); j -= inc )
            {
                a[ j + inc ] = a[ j ];
                ++cnt;
            }
            a[ j ] = temp;
            ++cnt;
        }
    }
    return cnt;
}
 
template < class T >
long long insertSort( T * a, int size )
{
    T tmp;
    long long cnt( 0 );
 
    for ( int i = 1, j; i < size; ++i ) // цикл проходов, i - номер прохода
    {
        tmp = a[ i ];
        for ( j = i - 1; j >= 0 && a[ j ] > tmp; --j )
        { // поиск места элемента в готовой последовательности
            a[ j + 1 ] = a[ j ];
            ++cnt;
        } // сдвигаем элемент направо, пока не дошли
        a[ j + 1 ] = tmp; // место найдено, вставить элемент
        ++cnt;
    }
    return cnt;
}
 
void __fastcall TForm1::btn_rocknrollClick( TObject * Sender )
{
    const int size( 10000 );
    int arr[ size ];
 
    srand( time( 0 ) );
    for ( size_t i( 0 ), i_limit( size ); i < i_limit; ++i )
    {
        arr[ i ] = rand( ) % size;
    }
    ShowMessage( String( "Прямое включение - " ) + insertSort( arr, size ) + " перестановок,\n" +
        "сортировка Шелла - " + shellSort( arr, size ) + " перестановок" );
}

template < typename T >
bool comp_ascend( T first, T second )
{
    return first < second;
}
 
template < typename RandomAccessIterator, typename Compare >
long long shell_sort( RandomAccessIterator first, RandomAccessIterator last, Compare comp )
{
    long long cnt( 0 );
    for ( typename std::iterator_traits < RandomAccessIterator > ::difference_type
        d = ( last - first ) / 2; d != 0; d /= 2 )
    {
        for ( RandomAccessIterator i = first + d; i != last; ++i )
        {
            for ( RandomAccessIterator j = i; j - first >= d && comp( *j, *( j - d ) ); j -= d )
            {
                std::swap( * j, * ( j - d ) );
                ++cnt;
            }
        }
    }
    return cnt;
}
 
template < class T >
long long insertSort( T * a, int size )
{
    T tmp;
    long long cnt( 0 );
 
    for ( int i = 1, j; i < size; ++i ) // цикл проходов, i - номер прохода
    {
        tmp = a[ i ];
        for ( j = i - 1; j >= 0 && a[ j ] > tmp; --j )
        { // поиск места элемента в готовой последовательности
            a[ j + 1 ] = a[ j ];
            ++cnt;
        } // сдвигаем элемент направо, пока не дошли
        a[ j + 1 ] = tmp; // место найдено, вставить элемент
        ++cnt;
    }
    return cnt;
}
 
void __fastcall TForm1::btn_rollClick( TObject * Sender )
{
    const int size( 10000 );
    int arr[ size ], arr2[ size ];
 
    srand( time( 0 ) );
    for ( size_t i( 0 ), i_limit( size ); i < i_limit; ++i )
    {
        arr[ i ] = arr2[ i ] = rand( ) % size;
    }
    ShowMessage( String( "Прямое включение - " ) + insertSort( arr, size ) + " перестановок,\n" +
        "сортировка Шелла - " + shell_sort( arr2, arr2 + size, comp_ascend < int > ) + " перестановок" );
}

randomize();            //Изменение начального адреса для random()
n=StrToInt(Edit1->Text);
StringGrid2->ColCount=n;
for(int i=0; i<n; i++) StringGrid2->Cells[i][0] = IntToStr(random(2001));
Form4->Button2->Enabled=true;
Form4->Button4->Enabled=true;

template < typename T >
bool comp_ascend( T first, T second )
{
    return first < second;
}
 
template < typename RandomAccessIterator, typename Compare >
long long shell_sort( RandomAccessIterator first, RandomAccessIterator last, Compare comp )
{
    long long cnt( 0 );
    for ( typename std::iterator_traits < RandomAccessIterator > ::difference_type
        d = ( last - first ) / 2; d != 0; d /= 2 )
    {
        for ( RandomAccessIterator i = first + d; i != last; ++i )
        {
            for ( RandomAccessIterator j = i; j - first >= d && comp( *j, *( j - d ) ); j -= d )
            {
                std::swap( * j, * ( j - d ) );
                ++cnt;
            }
        }
    }
    return cnt;
}
 
template < class T >
long long insertSort( T * a, int size )
{
    T tmp;
    long long cnt( 0 );
 
    for ( int i = 1, j; i < size; ++i ) // цикл проходов, i - номер прохода
    {
        tmp = a[ i ];
        for ( j = i - 1; j >= 0 && a[ j ] > tmp; --j )
        { // поиск места элемента в готовой последовательности
            a[ j + 1 ] = a[ j ];
            ++cnt;
        } // сдвигаем элемент направо, пока не дошли
        a[ j + 1 ] = tmp; // место найдено, вставить элемент
        ++cnt;
    }
    return cnt;
}
// ---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
    TStringGrid *sgrid_shell_arr;
    TStringGrid *sgrid_insert_arr;
    TButton *btn_sort_shell;
    TButton *btn_sort_insert;
    TEdit *edt_arr_size;
    TButton *btn_generate_arr;
    TMemo *mem_result;
    void __fastcall btn_generate_arrClick(TObject *Sender);
    void __fastcall btn_sort_shellClick(TObject *Sender);
    void __fastcall btn_sort_insertClick(TObject *Sender);
 
public: // User declarations
 
      std::vector< int> vcr_shell_arr, vcr_insert_arr;
    __fastcall TForm1( TComponent * Owner );
     __fastcall ~TForm1( );
} ;

__fastcall TForm1::TForm1( TComponent * Owner )
    :
    TForm( Owner )
{
    srand( time( 0 ) );
}
 
// ---------------------------------------------------------------------------
__fastcall TForm1::~TForm1( )
{
 
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::btn_generate_arrClick( TObject * Sender )
{
    int size, tmp;
    if ( TryStrToInt( edt_arr_size->Text, size ) )
    {
        vcr_shell_arr.clear( );
        sgrid_shell_arr->Cols[ 0 ]->Clear( );
        sgrid_insert_arr->Cols[ 0 ]->Clear( );
        sgrid_shell_arr->RowCount = size;
        sgrid_insert_arr->RowCount = size;
 
        for ( size_t i( 0 ), i_limit( size ); i < i_limit; ++i )
        {
            tmp = rand( ) % size;
            vcr_shell_arr.push_back( tmp );
            sgrid_shell_arr->Cells[ 0 ][ i ] = IntToStr( tmp );
            sgrid_insert_arr->Cells[ 0 ][ i ] = sgrid_shell_arr->Cells[ 0 ][ i ];
        }
        vcr_insert_arr.resize( vcr_shell_arr.size( ) );
        std::copy( vcr_shell_arr.begin( ), vcr_shell_arr.end( ), vcr_insert_arr.begin( ) );
    }
    else
    {
        ShowMessage( "Некорректный ввод." );
    }
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::btn_sort_shellClick( TObject * Sender )
{
    if ( vcr_shell_arr.size( ) )
    {
        mem_result->Lines->Add( String( "сортировка Шелла - " ) +
            shell_sort( vcr_shell_arr.begin( ), vcr_shell_arr.end( ), comp_ascend < int > ) + " перестановок" );
        for ( size_t i( 0 ), i_limit( vcr_shell_arr.size( ) ); i < i_limit; ++i )
        {
            sgrid_shell_arr->Cells[ 0 ][ i ] = IntToStr( vcr_shell_arr[ i ] );
        }
    }
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::btn_sort_insertClick( TObject * Sender )
{
    if ( vcr_insert_arr.size( ) )
    {
        mem_result->Lines->Add( String( "Прямое включение - " ) +
            insertSort( & vcr_insert_arr.front( ), vcr_insert_arr.size( ) ) + " перестановок" );
        for ( size_t i( 0 ), i_limit( vcr_insert_arr.size( ) ); i < i_limit; ++i )
        {
            sgrid_insert_arr->Cells[ 0 ][ i ] = IntToStr( vcr_insert_arr[ i ] );
        }
    }
}