|
program kuaisu(input,output);
const n=10;
var
s:array[1..10] of integer;
l,m:integer;
procedure qsort(lx,rx:integer);
var
I,j,t:integer;
Begin
I:=lx;j:=rx;t:=s[I];
Repeat
While (s[j]>t) and (j>I) do
j:=j-1;
if I<j then
begin
s[I]:=s[j];I:=I+1;
while (s[I]<t) and (I<j) do
I:=I+1;
If I<j then
begin
S[j]:=s[I];j:=j-1
End;
End;
Until I=j;
S[I]:=t;I:=I+1;j:=j-1;
If lx<j then qsort(lx,j);
If I<rx then qsort(I,rx)
End;{过程qsort结束}
Begin
Writeln('input 10 integer num:');
For m:=1 to n do read(s[m]);
K:=0;l:=0;
Qsort(l,n);
Writeln('排序后结果是：')；
For m:=1 to n do write(s[m]:4)
End.
|
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 
