排序算法1.pptVIP

代码 const max=10000; var a:array[1..max] of longint; m,n,s,i,j,p:longint; begin assign(input,carry.in);reset(input); assign(output,carry.out);rewrite(output); s:=0; read(m); for i:=1 to m do read(a[i]); for i:=1 to m-1 do for j:=1 to m-i do if a[j]a[j+1] then begin p:=a[j]; a[j]:=a[j+1]; a[j+1]:=p; s:=s+1; end; write(s); close(input);close(output); end. 例三 军事机密(Secret.pas) 【问题描述】 军方截获的信息由n（n=30000）个数字组成，因为是敌国的高端秘密，所以一时不能破获。最原始的想法就是对这n个数进行小到大排序，每个数都对应一个序号，然后对第i个是什么数感兴趣，现在要求编程完成。 【输入格式】 第一行n，接着是n个截获的数字，接着一行是数字k，接着是k行要输出数的序号。 【输出格式】 k行序号对应的数字。 【输入样例】Secret.in 5 121 1 126 123 7 3 2 4 3 【输出样例】Secret.out 7 123 121 考虑NlogN的排序 var n,i,k:word;??? a:array[1..30000]of longword; procedure qsort(l,r:longword);??? var pl,pr,m,t:longword;??? begin??????? pl:=l;pr:=r;m:=a[(l+r)shr 1];??????? repeat??????????? while a[pl]m do inc(pl);??????????? while a[pr]m do dec(pr);??????????? if pl=pr then??????????????? begin??????????????????? t:=a[pl];a[pl]:=a[pr];a[pr]:=t;??????????????????? inc(pl);dec(pr);??????????????? end;??????? until plpr;??????? if plr then qsort(pl,r);??????? if prl then qsort(l,pr);??? end;{qsort} begin{main}??? assign(input,secret.in); reset(input);??? assign(output,secret.out); rewrite(output);??? readln(n);??? for i:=1 to n do read(a[i]);??? qsort(1,n);??? readln(k);??? for i:=1 to k do begin readln(n); writeln(a[n]); end;??? close(input);close(output);end. 谢谢！！ * 排序算法及应用 为什么要学排序 数据获取后通常需要进行处理，处理后的数据其目的是便于人们的应用。数据处理方法有多种，通常有数据的排序，查找，插入，删除，归并等操作。排序就显得极为重要。本章重点介绍数据排序的几种方法。 什么是排序？ 排序是处理数据过程中一种很常用的运算，是将一组原本无序的数据元素，通过一定的方法，按照某个域的值（关键字）递增或递减的次序重新排列的过程。排序的目的之一是为了方便查找：对无序数据进行查找的时间复杂度为O(n)；在排序的基础上进行查找，其时间复杂度为O(logn)。 排序的分类： 根据排序过程中是否使用外存储器，可以把排序分为外排序和内排序。 下面主要讨论几种常见的内排序算法： 选择排序、冒泡排序、插入排序、快速排序和堆排序。 什么是稳定性？ 当待排序的数值或记录的关键字均不相同时，排序结果是惟一的，否则排序结果不唯一。如果序列中关键字相同的多个记录经过某种排序方法进行排序之后，仍能保持它们在排序之前