pascal快排程序

[复制链接]
查看11 | 回复2 | 2011-9-20 13:03:18 | 显示全部楼层 |阅读模式
procedure quick(l,r:longint);//快排是二分的经典应用varx,y,i,j:longint;beginx:=c[(l+r) div 2];i:=l;j:=r;//c数组为要排序的数组repeatwhile c>x do inc(i);//保证a均大于a[x];while c[j]j;if im...
回复

使用道具 举报

千问 | 2011-9-20 13:03:18 | 显示全部楼层
排个撒排...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行