Не работает QuickSort - VB

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

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

Скажем так написал быструю сортировку, вроде по правилам, но как не странно она у меня не работает). Помогите разобраться.
чуть чуть изменил Теперь Out of stack space больше не выходит)

Решение задачи: «Не работает QuickSort»

textual
Листинг программы
Sub sort(l, r)
  i = l: j = r
  x = A(Int((l + r) / 2))
  While i < j
    While A(i) < x
       i = i + 1
    Wend
    While x < A(j)
      j = j - 1
    Wend
    If i <= j Then
       p = A(i): A(i) = A(j): A(j) = p
       i = i + 1: j = j - 1
    End If
  Wend
  If Abs(l - i) > 2 Then sort l, i
  If Abs(r - i) > 2 Then sort i, r
End Sub

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


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

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

6   голосов , оценка 3.5 из 5