pascal 快速排序代码

 我来答
843279365
2012-05-19 · TA获得超过455个赞
知道小有建树答主
回答量:158
采纳率:0%
帮助的人:169万
展开全部
procedure qsort(l,r:longint);
var i,j,x,temp:longint;
begin
i:=l;
j:=r;
x:=a[(i+j)div 2];
repeat
while x>a[i] do inc(i);
while x<a[j] do dec(j);
if i<=j then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp;
inc(i);
dec(j);
end;
until i>j;
if i<r then qsort(i,r);
if j>l then qsort(l,j);
end;
end;
zyf2000_0410
2012-05-26
知道答主
回答量:35
采纳率:0%
帮助的人:18.4万
展开全部
用的是TP
打开C:\TP\EXAMPLES\QSORT.PAS

用的是fp
打开C:\FPC\2.4.4\demo\text\qsort.pp

把函数复制出来改下变量、常量就可以调用了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式