快排代码

最新推荐文章于 2021-04-20 17:39:51 发布

转载最新推荐文章于 2021-04-20 17:39:51 发布 · 387 阅读

文章标签：

#div

NOIP2011黎明前夕的黑暗同时被 2 个专栏收录

223 篇文章

订阅专栏

感~

25 篇文章

订阅专栏

本文介绍了一个使用Pascal语言实现的快速排序算法。该算法通过选取基准元素并进行分区操作来递归地对数组进行排序。文章详细展示了快速排序的过程及其实现代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

 procedure qsort(l,r:longint);
var i,j,m,p:longint;
begin
  i:=l; j:=r; m:=a[(l+r) div 2];
  repeat
    while a[i]<m do inc(i);
    while a[j]>m do dec(j);
    if i<=j then
    begin p:=a[i]; a[i]:=a[j]; a[j]:=p; inc(i); dec(j); end;
  until i>j;
  if i<r then qsort(i,r);
  if l<j then qsort(l,j);
end;