題意

排序

分析

數(shù)據(jù)規(guī)模太大，建議使用快排。

var

n,i:longint;
a:array[0..100000]of longint;


procedure kp(l,r:longint);
var
i,j,mid:longint;
begin
? ? if l>=r then exit;
? ? i:=l;j:=r;mid:=a[(l+r) div 2];
? ? repeat
? ? ? ? ?while a[i]<mid do inc(i);
? ? ? ? ?while a[j]>mid do dec(j);
? ? ? ? ?if i<=j then
? ? ? ? ?begin
? ? ? ? ? ? ?a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
? ? ? ? ? ? ?inc(i);dec(j);
? ? ? ? ?end;
? ? until i>j;
? ? kp(l,j);
? ? kp(i,r)
end;


begin
? ? readln(n);
? ? for i:=1 to n do
? ? read(a[i]);
? ? kp(1,n);
? ? for i:=1 to n do
? ? write(a[i],' ');
end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500214.html

總結

以上是生活随笔為你收集整理的快速排序pascal程序的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。