易语言快速排序怎么写
时间: 2023-02-21 14:11:59 浏览: 146
易语言快速排序 支持倒序
易语言的快速排序算法可以使用递归的方法实现。首先,选择一个中间数作为基准数,然后把数组分为两部分,比基准数小的数放在左边,比基准数大的数放在右边。对于左边和右边的两个数组分别递归执行快速排序。最终数组就已经有序了。
代码如下:
```
Sub QuickSort(a() As Integer, l As Integer, r As Integer)
If l < r Then
Dim i As Integer, j As Integer, x As Integer
i = l
j = r
x = a(l)
While i < j
While i < j And a(j) >= x
j -= 1
End While
If i < j Then
a(i) = a(j)
i += 1
End If
While i < j And a(i) < x
i += 1
End While
If i < j Then
a(j) = a(i)
j -= 1
End If
End While
a(i) = x
QuickSort a(), l, i - 1
QuickSort a(), i + 1, r
End If
End Sub
```
阅读全文