pascal多关键字快排,哪里错了阿?求赐教!procedure qsort(l,r:longint);var i,j:longint;k,x:arr;beginif l>=r then exit;i:=l-1; j:=r+1; x:=a[random(r-l+1)+l];while true do beginrepeat inc(i) until (a[i].a>x.a)or((a[i].a=x.a)and(a[i].b>x.b));re
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/07 07:08:14
![pascal多关键字快排,哪里错了阿?求赐教!procedure qsort(l,r:longint);var i,j:longint;k,x:arr;beginif l>=r then exit;i:=l-1; j:=r+1; x:=a[random(r-l+1)+l];while true do beginrepeat inc(i) until (a[i].a>x.a)or((a[i].a=x.a)and(a[i].b>x.b));re](/uploads/image/z/13255199-71-9.jpg?t=pascal%E5%A4%9A%E5%85%B3%E9%94%AE%E5%AD%97%E5%BF%AB%E6%8E%92%2C%E5%93%AA%E9%87%8C%E9%94%99%E4%BA%86%E9%98%BF%3F%E6%B1%82%E8%B5%90%E6%95%99%21procedure+qsort%28l%2Cr%3Alongint%29%3Bvar+i%2Cj%3Alongint%3Bk%2Cx%3Aarr%3Bbeginif+l%3E%3Dr+then+exit%3Bi%3A%3Dl-1%3B+j%3A%3Dr%2B1%3B+x%3A%3Da%5Brandom%28r-l%2B1%29%2Bl%5D%3Bwhile+true+do+beginrepeat+inc%28i%29+until+%28a%5Bi%5D.a%3Ex.a%29or%28%28a%5Bi%5D.a%3Dx.a%29and%28a%5Bi%5D.b%3Ex.b%29%29%3Bre)
pascal多关键字快排,哪里错了阿?求赐教!procedure qsort(l,r:longint);var i,j:longint;k,x:arr;beginif l>=r then exit;i:=l-1; j:=r+1; x:=a[random(r-l+1)+l];while true do beginrepeat inc(i) until (a[i].a>x.a)or((a[i].a=x.a)and(a[i].b>x.b));re
pascal多关键字快排,哪里错了阿?求赐教!
procedure qsort(l,r:longint);
var i,j:longint;
k,x:arr;
begin
if l>=r then exit;
i:=l-1; j:=r+1; x:=a[random(r-l+1)+l];
while true do begin
repeat inc(i) until (a[i].a>x.a)or((a[i].a=x.a)and(a[i].b>x.b));
repeat dec(j) until (a[j].a
pascal多关键字快排,哪里错了阿?求赐教!procedure qsort(l,r:longint);var i,j:longint;k,x:arr;beginif l>=r then exit;i:=l-1; j:=r+1; x:=a[random(r-l+1)+l];while true do beginrepeat inc(i) until (a[i].a>x.a)or((a[i].a=x.a)and(a[i].b>x.b));re
procedure pai(l,r:longint);
var
i,j,mid1,mid2:longint;
t:re;
begin
i:=l;j:=r;
mid1:=a[(l+r)shr 1].x;
mid2:=a[(l+r)shr 1].y;
repeat
while (a[i].xmid2)) do dec(j);
if ij;
if i