UC知道怎样把从pascal小到大的快排变成从大到小的快排??????
来源：百度知道 编辑：UC知道 时间：2024/06/06 11:44:35
我这里有一个从小到大的快排程序麻烦你们把它变成从大到小的程序
一定要写出来哦！！
procedure qsort(m,n:longint);
var
i,j,k,t:longint;
begin
i:=m; j:=n; k:=a[(i+j) div 2];
repeat
while a[i]< k do inc(i);
while a[j]> k do dec(j);
if i<=j then
begin
t:=a[i]; a[i]:=a[j]; a[j]:=t;
inc(i); dec(j);
end;
until i>j;
if m<j then qsort(m,j);
if i<n then qsort(i,n);
end;
ps：本人刚学快排还请你们指点
一定要写出来哦！！
procedure qsort(m,n:longint);
var
i,j,k,t:longint;
begin
i:=m; j:=n; k:=a[(i+j) div 2];
repeat
while a[i]< k do inc(i);
while a[j]> k do dec(j);
if i<=j then
begin
t:=a[i]; a[i]:=a[j]; a[j]:=t;
inc(i); dec(j);
end;
until i>j;
if m<j then qsort(m,j);
if i<n then qsort(i,n);
end;
ps：本人刚学快排还请你们指点
procedure qsort(m,n:longint);
var
i,j,k,t:longint;
begin
i:=m; j:=n; k:=a[(i+j) div 2];
repeat
while a[i]> k do inc(i);
while a[j]< k do dec(j);
if i<=j then
begin
t:=a[i]; a[i]:=a[j]; a[j]:=t;
inc(i); dec(j);
end;
until i>j;
if m<j then qsort(m,j);
if i<n then qsort(i,n);
end;
这个很简单，就是把while a[i]< k do inc(i); 中的“<”改成“>”
把while a[j]> k do dec(j); 中的“>”改成“<”