快速排序pascal程序

题意

排序

分析

数据规模太大，建议使用快排。

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程序相关推荐

Pascal程序结构
Pascal程序结构什么是Pascal程序结构 Pascal程序结构是指Pascal程序的基本组成部分及其组织方式,包括程序.单元.过程.函数.类型定义.变量定义.语句和表达式等.程序结构的良好设计 ...
我的第一次Pascal程序
今天刚刚来学点Pascal语言,都怪我买的书大多是用Pascal语言写的,所以我只能试着学一点咯! 来一段程序员最经典的Hello World! 1 program exl_2; 2 begin 3 ...
最优乘车pascal程序
Description H城是一个旅游胜地,每年都有成千上万的人前来观光.为方便游客,巴士公司在各个旅游景点及宾馆,饭店等地都设置了巴士站并开通了一些单程巴上线路.每条单程巴士线路从某个巴士站出发,依 ...
试卷批分pascal程序
某学校进行了一次英语考试,共有10道是非题,每题为10分,解答用1表示"是",用0表示"非"的方式.但老师批完卷后,发现漏批了一张试卷,而且标准答案也丢失了,手 ...
教你学习快速排序算法-程序员必备哦
支持原文:https://tryenough.com/arithme... 举个例子排序这个序列:6 1 2 7 9 3 4 5 10 8 步骤1:选择一个基准数作为对比的开始值,这里选择第一个数6 ...
数列分段pascal程序
题意对于给定的一个长度为N的正整数数列A[i],现要将其分成连续的若干段,并且每段和不超过M(可以等于M),问最少能将其分成多少段使得满足要求. 分析一个一个加上s,如果s>m,那么s就变成 ...
混合牛奶pascal程序
题意给出Marry乳业每天对牛奶的需求量,还有每位奶农提供的牛奶单价和产量.计算采购足够数量的牛奶所需的最小花费. 分析排序,最小价值优先取,太多了就退出循环,输出(之前的价值+还有多少需求*退出 ...
单词接龙pascal程序
题意现在我们已知一组单词,且给定一个开头的字母,要求出以这个字母开头的最长的"龙"(每个单词都最多在"龙"中出现两次),在两个单词相连时,其重合部分合为一部分 ...
谁拿了最多奖学金pascal程序
题意找出奖学金最多的学生分析这题就是很简单的字符串处理,细心一点就好. 先把每一个学生的奖学金算出来,再排序,如果有两位或两位以上的学生获得的奖金最多,输出他们之中在输入文件中出现最早的学生的姓 ...

快速排序pascal程序

快速排序pascal程序相关推荐

最新文章

热门文章