Сортировка массива по убыванию - VB (63022)
Формулировка задачи:
Началоприьлизительно такое. Надо отсортировать массив способом с наименьшим кол-вом прохождений цикла. Объяснили так: нужно найти сразу наибольшее и наименьшие числа, поставить их в начало и конец соответственно. А среди оставшихся чисел массива продолжать тоже самое.
Листинг программы
- Label1.Caption = " "
- Label2.Caption = Label1.Caption
- Label1.Font.Size = 18
- Label2.Font.Size = Label1.Font.Size
- Dim massive(9) As Long, i As Integer, J As Integer, N As Integer, Tmp As Double, r As Integer, k As Integer
- Randomize (Time)
- For i = 0 To 9
- massive(i) = Rnd() * 10
- Next i
- For i = 0 To 9
- Label1.Caption = Label1.Caption & massive(i) & Space(3)
- Next i
Решение задачи: «Сортировка массива по убыванию»
textual
Листинг программы
- Dim indM, k, i, arr() As Single
- n = 5
- ReDim arr(1 To n)
- arr(1) = 4
- arr(2) = -3
- arr(3) = 0
- arr(4) = 3
- arr(5) = -10
- Dim Min As Single
- For i = 1 To n - 1
- Min = arr(i)
- k_min = i
- For j = i + 1 To n
- If arr(j) < Min Then
- Min = arr(j)
- k_min = j
- End If
- Next
- arr(k_min) = arr(i)
- arr(i) = Min
- Next
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д