Быстрая сортировка на vbscript

Стандартный

Option Explicit
Dim
i, arrSample (9)

arrSample (0) = 9.9
arrSample (1) = 8.7
arrSample (2) = 7
arrSample (3) = 6
arrSample (4) = 5.8946456
arrSample (5) = 4
arrSample (6) = 3
arrSample (7) = 2.4
arrSample (8) = 1

qsort arrSample, 0, 8

For i = 0 To 8
WScript.Echo arrSample(i)
Next

Sub qsort (arr, l, r)
Dim i, j, x, y
    i = l
    j = r
    x = arr((l + r) \ 2)
Do
        While arr(i) < x
            i = i + 1
Wend
        While x < arr(j)
            j = j - 1
Wend
        If i <= j Then
            If arr(i) <> arr(j) Then
                y = arr(i)
                arr(i) = arr(j)
                arr(j) = y
End If
            i = i + 1
            j = j - 1
End If
    Loop Until i > j
If l < j Then qsort arr, l, j
If i < r Then qsort arr, i, r
End Sub

Реклама

Быстрая сортировка на vbscript: 2 комментария

  1. Есть сайтик один, называется что-то типа alglib, там дофига всяких алгоритмов, в т.ч. и мульён разных сортировок. Советую посетить чиста для общеобразовательных целей.

    (Када мы делали Ольке диплом (прикладная математика, байесовский классификатор), то кое-что для работы с матрицами и др. математические прибамбасы позаимствовали и оттуда в т.ч.)

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s