二分法排序
摘要：
Vara:array[0..maxint]of longint;Procedure qs(lx,rx:longint);Var i,j,t,x:longint;Begin i:=lx; j:=rx; x:=a[(j+i) div 2]; Repeat While a[i]x do dec(j); If ij; If lx<j then qs(... 阅读全文
posted @ 2009-02-14 11:24 风乔 阅读(114) 评论(0) 推荐(0) 编辑
