易语言的快速排序怎么写
时间: 2023-02-20 11:13:16 浏览: 135
易语言-易语言快速排序
易语言的快速排序代码如下:
```
Begin Global
Var Arr[100]
End Global
Function QuickSort(L, R)
Var i, j, x, t
i = L
j = R
x = Arr[(L + R) / 2]
While (i <= j)
While (Arr[i] < x)
i = i + 1
End While
While (Arr[j] > x)
j = j - 1
End While
If (i <= j) Then
t = Arr[i]
Arr[i] = Arr[j]
Arr[j] = t
i = i + 1
j = j - 1
End If
Wend
If (L < j) Then
QuickSort(L, j)
End If
If (i < R) Then
QuickSort(i, R)
End If
End Function
Begin Program
Var i, N
Input "请输入数组的大小:", N
For i = 0 To N - 1
Input "请输入第" & i + 1 & "个数:", Arr[i]
Next i
QuickSort(0, N - 1)
For i = 0 To N - 1
Print Arr[i]
Next i
End Program
```
这是一个简单的易语言快速排序的代码示例。
阅读全文