Сортировка массива по убыванию - VB (63022)

Узнай цену своей работы

Формулировка задачи:

Началоприьлизительно такое. Надо отсортировать массив способом с наименьшим кол-вом прохождений цикла. Объяснили так: нужно найти сразу наибольшее и наименьшие числа, поставить их в начало и конец соответственно. А среди оставшихся чисел массива продолжать тоже самое.
Листинг программы
  1. Label1.Caption = " "
  2. Label2.Caption = Label1.Caption
  3. Label1.Font.Size = 18
  4. Label2.Font.Size = Label1.Font.Size
  5. Dim massive(9) As Long, i As Integer, J As Integer, N As Integer, Tmp As Double, r As Integer, k As Integer
  6. Randomize (Time)
  7. For i = 0 To 9
  8. massive(i) = Rnd() * 10
  9. Next i
  10. For i = 0 To 9
  11. Label1.Caption = Label1.Caption & massive(i) & Space(3)
  12. Next i

Решение задачи: «Сортировка массива по убыванию»

textual
Листинг программы
  1. Dim indM, k, i, arr() As Single
  2. n = 5
  3. ReDim arr(1 To n)
  4. arr(1) = 4
  5. arr(2) = -3
  6. arr(3) = 0
  7. arr(4) = 3
  8. arr(5) = -10
  9. Dim Min As Single
  10. For i = 1 To n - 1
  11.  Min = arr(i)
  12.  k_min = i
  13.   For j = i + 1 To n
  14.   If arr(j) < Min Then
  15.    Min = arr(j)
  16.    k_min = j
  17.   End If
  18.   Next
  19.   arr(k_min) = arr(i)
  20.   arr(i) = Min
  21. Next

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут