Pascal排序

Question

基数排序；快速排序等。。。。。。
Pascal程序+范例+解说。。
急求。。
快。。

Answer 1

var a:array[0..1000000] of longint;//基数排序
i,n,x:longint;
begin
readln(n);//数据规模
for i:=1 to n do
begin
read(x);//读入x
inc(a[x]);//a[x]表示x的个数
end;
for i:=1 to 1000000 do
while a[i]>0 do//x的个数不为零，有多少个，就输出多少个
begin
write(i,' ');
dec(a[i]);//每输出一个，就-1
end;
end.

var a:array[0..100000] of longint;//快速排序
n,i:longint;
procedure sort(i1,j1:longint);
var i,j,n,s:longint;
begin
i:=i1;
j:=j1;
n:=a[(i+j) div 2];//找中间作比较的数（称为中介）
repeat
while a[i]<n do inc(i);//如果中介左边的数比中介小就不理，否则i指向该数
while a[j]>n do dec(j);/如果中介右边的数比中介大就不理，否则j指向该数
if i<=j then//将中介左边大的和中介右边小的交换
begin
s:=a[i];a[i]:=a[j];a[j]:=s;
inc(i);dec(j);
end;
until i>j;
if i<j1 then sort(i,j1);//递归中介的左边
if i1<j then sort(i1,j);//递归中介的右边
end;
begin
read(n);
for i:=1 to n do read(a[i]);
sort(1,n);
for i:=1 to n do writeln(a[i]);
end.