Сортировка методом Шелла

[Crazy_shark]

в общем дали мне курсач по этой теме, сделал я его таким образом:

Код: Выделить всё


Dim a(1 To 20)
Private Sub Comumd1_Click()
n = Val(Text1)
av = Split(Text2, " ")
Foe i = 1 TO n
a(i) = Val(av(i - 1))
Next
d = 1
Do Whlle n \ 2 > d     
d = 2 * d
Loop
Do While d <> О
Picture2.Print " d= "; d
For i = 1 To n - d
If a(i) > a(i + d) Then
buf = a(i)
A(i) = a(i+d)
a(i+d) = buf
End If      
Next      
d = d \   2   
For k =   1 To n
Picture1.Print a(k)
Next      
Picture1.Print;
Loop      
End Sub

Показал преподу - сказал переделать под вот такой интерфейс с помощью MSFlexGrid, но работать с ним я совсем не умею( помогите пожалуйста, что в коде заменить надо

[alibek]

Вместо Picture.Print задавай свойства Row и Col грида и указывай свойство Text. Либо сразу задавай TextMatrix.

[Crazy_shark]

А поточнее? Прост я совсем не умею с гридом работать

[Viper]

Куда уж точнее то. Допустим у тебя есть грид grdSortShell с тремя столбцами и одиннадцатью строками. Тогда для того, чтобы в третью колонку и пятую строку записать число используй такой код:

Код: Выделить всё

grdSortShell.Col = 2    ' номер столбца, нумерация с 0.
grdSortShell.Row = 4   ' номер строки, нумерация с 0.
grdSortShell.Text = 28 ' записываемое число

[StimorolD3DX]

У меня дома есть некий интерфейс и в нём есть 8 методов сортировки включая метод шелла. Если надо могу скинуть, делал недавно.

[Viper]

StimorolD3DX, вроде автор не спрашивал про то как ему реализовать метод Шелла.

[Crazy_shark]

Вот переделали мне бинарные вставки под Грид, посмотрите, все ли верно и какой в данном случае код мне надо вставлять чтоб получить метод Шелла

[Viper]

Вот переделали мне бинарные вставки под Грид, посмотрите, все ли верно и какой в данном случае код мне надо вставлять чтоб получить метод Шелла

А на что посмотреть то?

[Crazy_shark]

Оу) сори, код забыл вставить

Код: Выделить всё

Private Sub Col_Rownomer()
Dim i As Integer
For i = 0 To (msfg.Rows - 1)
msfg.TextMatrix(i, 0) = i
Next i
i = 0
msfg.ColWidth(i) = 480
For i = 1 To (msfg.Cols - 1)
msfg.TextMatrix(0, i) = i
msfg.ColWidth(i) = 960
Next i
End Sub
Private Sub RowColsAvto()
Dim i As Long
For i = 0 To msfg.Rows - 1
msfg.RowHeight(i) = 240
Next i
For i = 1 To msfg.Cols - 1
msfg.ColWidth(i) = 1300
Next i
End Sub
Private Sub btAdd_Click()
Dim x As Long
On Error GoTo Handler
If IsNumeric(Text1.Text) Then
x = CLng(Text1.Text)
If x > 0 And x <= 100 Then
  sctm10 = sctm10 + 1
  m10(sctm10) = x
  msfg.TextMatrix(sctm10, 1) = x
  If sctm10 = UBound(m10) Then
   btAdd.Enabled = False
   btBinar.Enabled = True
  End If
End If
End If
Handler:
If Err.Number <> 0 Then
Err.Clear
End If
Text1 = ""
Text1.SetFocus
End Sub
Private Sub btBinar_Click()
Dim i As Integer
BinaryInsertionSort m10, UBound(m10)
For i = LBound(m10) To UBound(m10)
msfg.TextMatrix(i, 2) = m10(i)
Next i
Handler:
If Err.Number <> 0 Then
Err.Clear
End If
End Sub



[alibek]

Кошмар.
Работа с данными непосредственно на гриде съест всю производительность алгоритма.
Оставь массивы, просто в самом конце информацию из массива выведи в грид.

[Crazy_shark]

Я не умею работать с гридом, но требуют его обязательно, поэтомуу можно ли более точно что и куда перенести. И што вче таки делать с Шеллом?

[alibek]

Я же написал в первом же моем сообщении.
Оставь свой прежний код, только вместо Picture.Print выводи результаты в грид.

[Viper]

Crazy_shark,
Пример использования грида. С Шеллом больше ничего делать не надо.

[Crazy_shark]

С гридом все сделал) спасибо большое)

[Crazy_shark]

Я понимаю, что уже достал, но скажите как сравнительный график методов сделать. Шелла и бинарных вставок

Представить на графике зависимость времени выполнения данных методов сортировки (ось у) от кол-ва элементов (ось х). Исходные данные задаются с помощью генератора случайных чисел. Исследовать массибы с кол-вом элементов от 500 до 5000 с шагом 50

как я понял: задаю массив, задаю масштаб, делаю координатные, а вот как обратиться к методам через функцию?