会员
周边
众包
新闻
博问
闪存
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
此处所列的文章均是我自己从国外的网站摘抄并翻译的,由于英文水平有限,里面肯定有不少错漏.翻译这些东西没有其他的什么用途,只是提高自己的英语阅读能力和编程技术水平而已
AppleAndPear
博客园
首页
管理
2010年11月18日
快速排序
摘要: procedure TForm1.Button1Click(Sender: TObject);var i: Integer; Procedure QuickSort(L, R: Integer); var i, j, p, temp: Integer; Begin Repeat i := L; j := R; p := (L + R) shr 1; Repeat while MyArray[i] ...
阅读全文
posted @ 2010-11-18 15:41 AppleAndPear
阅读(200)
评论(0)
推荐(0)
编辑