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

‘ // Процедура сортировки алгоритмом выборки Sub SelectionSort(ByRef array() As Integer, ByVal ToUpper As Boolean) Dim Dump As Integer Dim Index As Integer Dim Work As Integer Do For i As Integer = Work To UBound(Array) If ToUpper = True Then If (Array(Index) > Array(i)) Then Index = i Else If (Array(Index) < Array(i)) Then Index = i End If Next Dump = Array(Index) Array(Index) = Array(Work) Array(Work) = Dump ‘ // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Work += 1 Index = Work Loop Until (Work >UBound(Array)) End Sub

Источник: znanija.site

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

Dmon55 6 лет назад
Светило науки — 315 ответов — 0 раз оказано помощи

‘ // Процедура сортировки алгоритмом выборки

Сортировка массива пузырьком | Pascal

Sub SelectionSort(ByRef array() As Integer, ByVal ToUpper As Boolean)
Dim Dump As Integer
Dim Index As Integer
Dim Work As Integer

Do
For i As Integer = Work To UBound(Array)
If ToUpper = True Then
If (Array(Index) > Array(i)) Then Index = i
Else
If (Array(Index) < Array(i)) Then Index = i
End If
Next

Dump = Array(Index)
Array(Index) = Array(Work)
Array(Work) = Dump
‘ // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Work += 1
Index = Work
Loop Until (Work > UBound(Array))
End Sub

Источник: znanija.pro

Видоизмените программу сортировки массива выбором так чтобы в ней использовалась процедура выбора наибольшего элемента массива.

Dump = Array(Index)
Array(Index) = Array(Work)
Array(Work) = Dump
// c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Work += 1
Index = Work
Loop Until (Work > UBound(Array))
End Sub

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.

Источник: botanim.com