VBNet - Форум - Помогите сортировать массив в VB пожаалста.

Вопрос: Помогите сортировать массив в VB пожаалста. Добавлено: 16.03.10 00:14

Автор вопроса: Bu

Не работает чет нифига
VB:
3)Упорядочить массив А по возрастанию, используя след алгоритм сортировки
а) сортировка выбором: отыскивается мах элемент и переносится в конец массива и т.д.
б) сортировка обменом (метод пузырька) : последовательно сравниваются пары соседних элементов А и А и по условию они переставляются и т.д.
в) сортировка вставками: пусть первые элементы массива упорядочены, берется к+1 элемент и размещается среди первых

Вот что сделала я:

Dim bytA(1 To 100), bytMax, bytI, bytJ, bytK, bytR, bytN As Byte
Private Sub Command1_Click()
Randomize
For bytI = 1 To 10
bytA(bytI) = Int(Rnd * 100)
TxtDim.Text = TxtDim.Text + Str(bytA(bytI))
Next bytI
End Sub

Private Sub MaxElement(bytI, bytN As Byte)
bytMax = bytA(bytI)
bytN = bytI
For bytJ = bytI + 1 To 10
If bytA(bytJ) < bytMax Then bytMax = bytA(bytJ): bytN = bytJ
Next bytJ
End Sub

Private Sub Command2_Click()
txtSort.Text = ""
For bytI = 1 To 10

Call MaxElement(bytI, bytN)
bytR = bytA(bytI)
bytA(bytI) = bytA(bytN)
bytA(bytN) = bytR
Print " bytMax; bytN
For bytK = 1 To 10
txtSort.Text = txtSort.Text + Str(bytA(bytK))
Next bytK
Next bytI
End Sub

а вот последние два пункта никак не получаются, я не пойму как надо сделать
заранее благодарствую
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #1	Добавлено: 16.03.10 00:35
	метод пузырька выглядит примерно так. ' Массив dim AR(1 to 10) ' временная переменная dim tmp dim n, m for n=1 to 10 for m=1 to 10 if m<>n then if AR(m)>AR(n) then ' Чтобы не сравнивал сам себя ' Меняем местами tmp=AR(n) AR(n)=AR(m) AR(m)=tmp end if end if next next пусть первые элементы массива упорядочены Какие первые и сколько? Ответить

Номер ответа: 2 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #2	Добавлено: 16.03.10 00:36
	вообще вот, выбирай! Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSrc As Any, ByVal cbSize As Long) 'Метод Шелла '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Процедура для сортировки массива методом Шелла ' 'Входные параметры: ' Arr - сортируемый массив. ' Нумерация элементов от 0 до N-1 ' N - размер массива ' 'Выходные параметры: ' Arr - массив, упорядоченный по возрастанию. ' Нумерация элементов от 0 до N-1 ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Sub ShellSort(ByRef Arr() As Double, ByVal N As Long) Dim C As Boolean Dim G As Long Dim I As Long Dim J As Long Dim Tmp As Double N = N - 1# G = (N + 1#) \ 2# Do I = G Do J = I - G C = True Do If Arr(J) <= Arr(J + G) Then C = False Else Tmp = Arr(J) Arr(J) = Arr(J + G) Arr(J + G) = Tmp End If J = J - 1# Loop Until Not (J >= 0# And C) I = I + 1# Loop Until Not I <= N G = G \ 2# Loop Until Not G > 0# End Sub 'Метод Уильяма Флойда (бинарных деревьев) '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Процедура для упорядочивания массива пирамидальной сортировкой ' 'Входные параметры: ' Arr - сортируемый массив. ' Нумерация элементов от 0 до N-1 ' N - размер массива ' 'Выходные параметры: ' Arr - массив, упорядоченный по возрастанию. ' Нумерация элементов от 0 до N-1 ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Sub HeapSort(ByRef Arr() As Double, ByVal N As Long) Dim I As Long Dim J As Long Dim K As Long Dim T As Long Dim Tmp As Double If N = 1# Then Exit Sub End If I = 2# Do T = I Do While T <> 1# K = T \ 2# If Arr(K - 1#) >= Arr(T - 1#) Then T = 1# Else Tmp = Arr(K - 1#) Arr(K - 1#) = Arr(T - 1#) Arr(T - 1#) = Tmp T = K End If Loop I = I + 1# Loop Until Not I <= N I = N - 1# Do Tmp = Arr(I) Arr(I) = Arr(0#) Arr(0#) = Tmp T = 1# Do While T <> 0# K = 2# * T If K > I Then T = 0# Else If K < I Then If Arr(K) > Arr(K - 1#) Then K = K + 1# End If End If If Arr(T - 1#) >= Arr(K - 1#) Then T = 0# Else Tmp = Arr(K - 1#) Arr(K - 1#) = Arr(T - 1#) Arr(T - 1#) = Tmp T = K End If End If Loop I = I - 1# Loop Until Not I >= 1# End Sub 'Метод слияний '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Процедура для сортировки массива методом фон Неймана (слияний) ' 'Входные параметры: ' Arr - сортируемый массив. ' Нумерация элементов от 0 до N-1 ' N - размер массива ' 'Выходные параметры: ' Arr - массив, упорядоченный по возрастанию. ' Нумерация элементов от 0 до N-1 ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Sub MergeSort(ByRef Arr() As Double, ByVal N As Long) Dim C As Boolean Dim I As Long Dim I1 As Long Dim I2 As Long Dim N1 As Long Dim N2 As Long Dim J As Long Dim K As Long Dim Tmp As Double Dim BArr() As Double Dim MergeLen As Long ReDim BArr(0# To N - 1#) MergeLen = 1# C = True Do While MergeLen < N If C Then I = 0# Do While I + MergeLen <= N I1 = I + 1# I2 = I + MergeLen + 1# N1 = I + MergeLen N2 = I + 2# * MergeLen If N2 > N Then N2 = N End If Do While I1 <= N1 Or I2 <= N2 If I1 > N1 Then Do While I2 <= N2 I = I + 1# BArr(I - 1#) = Arr(I2 - 1#) I2 = I2 + 1# Loop Else If I2 > N2 Then Do While I1 <= N1 I = I + 1# BArr(I - 1#) = Arr(I1 - 1#) I1 = I1 + 1# Loop Else If Arr(I1 - 1#) > Arr(I2 - 1#) Then I = I + 1# BArr(I - 1#) = Arr(I2 - 1#) I2 = I2 + 1# Else I = I + 1# BArr(I - 1#) = Arr(I1 - 1#) I1 = I1 + 1# End If End If End If Loop Loop I = I + 1# Do While I <= N BArr(I - 1#) = Arr(I - 1#) I = I + 1# Loop Else I = 0# Do While I + MergeLen <= N I1 = I + 1# I2 = I + MergeLen + 1# N1 = I + MergeLen N2 = I + 2# * MergeLen If N2 > N Then N2 = N End If Do While I1 <= N1 Or I2 <= N2 If I1 > N1 Then Do While I2 <= N2 I = I + 1# Arr(I - 1#) = BArr(I2 - 1#) I2 = I2 + 1# Loop Else If I2 > N2 Then Do While I1 <= N1 I = I + 1# Arr(I - 1#) = BArr(I1 - 1#) I1 = I1 + 1# Loop Else If BArr(I1 - 1#) > BArr(I2 - 1#) Then I = I + 1# Arr(I - 1#) = BArr(I2 - 1#) I2 = I2 + 1# Else I = I + 1# Arr(I - 1#) = BArr(I1 - 1#) I1 = I1 + 1# End If End If End If Loop Loop I = I + 1# Do While I <= N Arr(I - 1#) = BArr(I - 1#) I = I + 1# Loop End If MergeLen = 2# * MergeLen C = Not C Loop If Not C Then I = 1# Do Arr(I - 1#) = BArr(I - 1#) I = I + 1# Loop Until Not I <= N End If End Sub 'Метод пузырька '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Процедура для сортировки массива методом пузырька ' 'Входные параметры: ' Arr - сортируемый массив. ' Нумерация элементов от 0 до N-1 ' N - размер массива ' 'Выходные параметры: ' Arr - массив, упорядоченный по возрастанию. ' Нумерация элементов от 0 до N-1 ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Sub BubbleSort(ByRef Arr() As Double, ByRef N As Long) Dim I As Long Dim J As Long Dim Tmp As Double For I = 0# To N - 1# Step 1 For J = 0# To N - 2# - I Step 1 If Arr(J) > Arr(J + 1#) Then Tmp = Arr(J) Arr(J) = Arr(J + 1#) Arr(J + 1#) = Tmp End If Next J Next I End Sub Ответить

Номер ответа: 3 Автор ответа: Bu Вопросов: 1 Ответов: 2	Профиль \| \| #3	Добавлено: 16.03.10 21:27
	пусть первые элементы массива упорядочены Какие первые и сколько? не знаю. такое и было задание спасибо вам огромное Ответить

Номер ответа: 4 Автор ответа: Bu Вопросов: 1 Ответов: 2	Профиль \| \| #4	Добавлено: 16.03.10 23:17
	у меня кстати чет нифига не работает. ни первый ни второй вариант пузырьков пишет мне только первый элемент массива и все( Ответить

Страница: 1 |