=I;
t:
=a[p];a[p]:
=a[j];a[j]:
=t;
end;
writeln(‘outputnum:
’);
forI:
=1tondo
write(a[I]:
5)
end.
冒泡排序算法
在解释冒泡排序算法之前,先来介绍把10个数(放在数组A中)中最大的那个数放在最后位置上的一种算法。
算法描述如下:
(1)从数组A[1]到A[10],把相临的两个数两两进行比较。
即A[1]和A[2]比较,比较完后A[2]再与A[3]比较,……最后是A[9]和A[10]比较。
(2)在每次进行比较的过程中,如果前一个数比后一个数大,则对调两个数,也就是说把较大的数调到后面,较小的调到前面。
比如在第一次的比较中,如果A[1]比A[2]大则A[1]和A[2]的值就互换。
下图用6个数据来说明以上的算法。
假设6个数据是:
A[]=574386
A[1]A[2]A[3]A[4]A[5]A[6]
574386第一次,A[1]=5和A[2]=7比较,7>5,不进行对调。
574386第二次,A[2]=7和A[3]=4比较,4<7,进行对调,
那么第二次比较完后的数据是547386
547386第三次,A[3]=7和A[4]=3比较,3<7,进行对调,
那么第三次比较完后的数据是543786
543786第四次,A[4]=7和A[5]=8比较,8>7,不进行对调。
543786第五次,A[6]=6和A[5]=8比较,6<8,进行对调,
那么第五次也就是最后一次的结果是
543768
由上例可以看出,对于6个数,排好一个数(最大的数)需要进行5次比较,可以推断出,对于N个数,一躺需要N-1次比较操作,
上述算法已经把N个数中最大的数放到了A[N]中,再重复上述算法,把A[1]到A[N-1]中最大的数放到A[N-1]中,这样A[N-1]中存放的就是第二大的数,接着把A[1]到A[N-2]中最大的数放到A[N-2]中,……最后把A[1]到A[2]中大的那个数放到A[2]中,每重复一次两两比较后,比较的范围就朝前移动一个位置,此算法经过N-1次就完成了A[1]到A[N]中的的数由小到大的排列。
注意:
如果要由大到小排列则在比较时前一个数比后一个数小就进行对调,方法相反。
由此可以看出,冒泡法的基本思想就是:
在待排序的数据中,先找到最小(大)的数据将它放到最前面,再从第二个数据开始,找到第二小(大)的数据将它放到第二个位置,以此类推,直到只剩下最后一个数为止。
这种排序方法在排序的过程中,是小的数就如气泡一样逐层上浮,而使大的数逐个下沉,于是就形象地取名为冒泡排序,又名起泡排序。
程序要求:
从键盘输入十个数,然后按从小到大的顺序输出。
程序代码:
programbubble(input,output);
constn=10;
type
colarr=array[1..n]ofinteger;
var
a:
colarr;t,i,j:
integer;
begin
writeln(‘INPUT10integernum:
’);
forI:
=1tondoread(a[I]);
readln;
forj:
=1ton-1do
forI:
=1ton-jdo
ifa[I]>a[I+1]then
begin
t:
=a[I];a[I]:
=a[I+1];a[I+1]:
=t
end;
writeln(‘OUTPUTnewnum:
’);
forI:
=1tondo
begin
write(a[I]:
4);
ifImod5=0thenwriteln
end;
end.
程序运行结果如下:
input10integernum:
{提示输入10个数}
76232119181016513{假如输入的数据}
outputnewnum:
{冒泡排序后输出结果}
5671013
1618192123
问题:
假如要从从大到小输出程序应该怎么改?
两重循环总共执行了多少次?
插入排序算法
通过学习上述两种方法可以了解排序的基本思想,也可以对任何一个无序数组作出从大到小(降序)或从小到大(升序)的排列。
现在假设有一个已经有序的数据序列,要求在这个已经排好的数据序列中插入一个数,但要求插入后此数据序列仍然有序,这个时候就要用到一种新的排序方法——插入排序法,插入排序的基本操作就是将一个数据插入到已经排好序的有序数据中,从而得到一个新的、个数加一的有序数据。
题目:
A数组中有N个数据,按从小到大的顺序排列,输入一个数X,把X的值插入到数组A中,使得插入后的A数组仍然按从小到大排列。
那么这个问题的解决算法就是:
1)、通过比较大小找到X应插入的位置,假如应该放在第I个位置;
2)、把从I开始的(包括I)的所有数组元素依次向后移动一个位置,即A[I+1]:
=A[I];
3)、A[I]:
=X
代码如下:
programcharu(input,output);
var
a:
array[1..11]ofinteger;
x,I,j,n:
integer;
f:
Boolean;
Begin
{给数组赋一个已经排序好的初值,设A[1]到A[10]分别等于1到10}
ForI:
=1to10doA[I]:
=I;
Writeln(‘数组原来的排列值是:
’);
ForI:
=1to10dowrite(a[I]:
4);
Writeln;
Writeln(‘输入一个整数:
’);
Readln(x);
F:
=false;
I:
=0;N:
=10;
Repeat
I:
=I+1;
Ifa[I]>xthenf:
=ture;
UntilI>norf=ture;
J:
=n+1;
Whilej<>Ido
begin
A[j]:
=a[j-1];
J:
=j-1
End;
A[I]:
=x;
Writeln(‘插入一个数后的数组排列值是:
’);
ForI:
=1ton+1do
Write(a[I]:
4)
End.
注意:
此排序方法要求数组一定要有足够的预留空间来容纳插入后的数据。
快速排序算法
快速排序是对冒泡排序的一种改进。
它的基本思想是:
通过一躺排序将要排序的数据分割成独立的两部分,其中一部分的所有数据都比另外一部分的所有数据都要小,然后再按次方法对这两部分数据分别进行快速排序,整个排序过程可以递归进行,以此达到整个数据变成有序序列。
假设要排序的数组是A[1]……A[N],首先任意选取一个数据(通常选用第一个数据)作为关键数据,然后将所有比它小的数都放到它前面,所有比它大的数都放到它后面,这个过程称为一躺快速排序。
一躺快速排序的算法是:
1)、设置两个变量I、J,排序开始的时候I:
=1,J:
=N;
2)以第一个数组元素作为关键数据,赋值给X,即X:
=A[1];
3)、从J开始向前搜索,即由后开始向前搜索(J:
=J-1),找到第一个小于X的值,两者交换;
4)、从I开始向后搜索,即由前开始向后搜索(I:
=I+1),找到第一个大于X的值,两者交换;
5)、重复第3、4步,直到I=J;
例如:
待排序的数组A的值分别是:
(初始关键数据X:
=49)
A[1]A[2]A[3]A[4]A[5]A[6]A[7]:
49386597761327
进行第一次交换后:
27386597761349
(按照算法的第三步从后面开始找进行第二次交换后:
27384997761365
(按照算法的第四步从前面开始找>X的值,65>49,两者交换,此时I:
=3)
进行第三次交换后:
27381397764965
(按照算法的第五步将又一次执行算法的第三步从后开始找进行第四次交换后:
27381349769765
(按照算法的第四步从前面开始找大于X的值,97>49,两者交换,此时J:
=4)
此时再执行第三不的时候就发现I=J,从而结束一躺快速排序,那么经过一躺快速排序之后的结果是:
27381349769765,即所以大于49的数全部在49的后面,所以小于49的数全部在49的前面。
快速排序就是递归调用此过程——在以49为中点分割这个数据序列,分别对前面一部分和后面一部分进行类似的快速排序,从而完成全部数据序列的快速排序,最后把此数据序列变成一个有序的序列,根据这种思想对于上述数组A的快速排序的全过程如图6所示:
初始状态{49386597761327}
进行一次快速排序之后划分为{273813}49{769765}
分别对前后两部分进行快速排序{13}27{38}
结束结束{4965}76{97}
49{65}结束
结束
图6快速排序全过程
1)、设有N(假设N=10)个数,存放在S数组中;
2)、在S[1。
。
N]中任取一个元素作为比较基准,例如取T=S[1],起目的就是在定出T应在排序结果中的位置K,这个K的位置在:
S[1。
。
K-1]<=S[K]<=S[K+1..N],即在S[K]以前的数都小于S[K],在S[K]以后的数都大于S[K];
3)、利用分治思想(即大化小的策略)可进一步对S[1。
。
K-1]和S[K+1。
。
N]两组数据再进行快速排序直到分组对象只有一个数据为止。
如具体数据如下,那么第一躺快速排序的过程是:
数组下标:
12345678910
45361853723048931536
IJ
(1)36361853723048931545
(2)36361845723048931553
(3)36361815723048934553
(4)36361815453048937253
(5)36361815304548937253
通过一躺排序将45放到应该放的位置K,这里K=6,那么再对S[1。
。
5]和S[6。
。
10]分别进行快速排序。
程序代码如下:
programkuaisu(input,output);
constn=10;
var
s:
array[1..10]ofinteger;
k,l,m:
integer;
procedureqsort(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
Begin
k:
=k+1;
j:
=j-1
end;
ifIbegin
s[I]:
=s[j];I:
=I+1;l:
=l+1;
while(s[I] begin
k:
=k+1;
I:
=I+1
End;
IfIbegin
S[j]:
=s[I];j:
=j-1;l:
=l+1;
End;
End;
UntilI=j;
S[I]:
=t;I:
=I+1;j:
=j-1;l:
=l+1;
IflxIfIEnd;{过程qsort结束}
Begin
Writeln('input10integernum:
');
Form:
=1tondoread(s[m]);
K:
=0;l:
=0;
Qsort(l,n);
Writeln('排序后结果是:
');
Form:
=1tondowrite(s[m]:
4)
End.
一般快速排序法
{快速排序法的一躺排序程序}
programkuaisu(input,output);
type
arr=array[1..7]ofinteger;
var
a:
arr;
i,j,k:
integer;
proceduresort(vara:
arr;varm,n:
integer);
var
x,p,q:
integer;
begin
x:
=a[m];
repeat
while((mx))don:
=n-1;
p:
=a[m];a[m]:
=a[n];a[n]:
=p;
while((m
p:
=a[m];a[m]:
=a[n];a[n]:
=p
untilm=n
end;
begin
writeln('input10integernum:
');
i:
=1;j:
=1;k:
=7;
repeat
read(a[i]);
i:
=i+1;
untili>7;
sort(a,j,k);
fori:
=1to7do
write(a[i]:
4);
writeln('j=',j:
4,'k:
',k:
4)
end.
标准快速排序算法
programkuaisu(input,output);
constn=10;
var
s:
array[1..10]ofinteger;
k,l,m,o:
integer;
procedureqsort(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
Begin
k:
=k+1;
j:
=j-1
end;
ifIbegin
s[I]:
=s[j];I:
=I+1;l:
=l+1;
while(s[I] begin
I:
=I+1
End;
IfIbegin
S[j]:
=s[I];j:
=j-1
End;
End;
UntilI=j;
S[I]:
=t;I:
=I+1;j:
=j-1; o:
=o+1;
writeln('第',o:
3,'次排序的结果:
');
for m:
=1to10dowrite(s[m]:
5);
writeln;
IflxIfIEnd;{过程qsort结束}
Begin
Writeln('input10integernum:
');
Form:
=1tondoread(s[m]);
K:
=0;l:
=1;o:
=0;
Qsort(l,n);
Writeln('shuchujieguo:
');
Form:
=1tondowrite(s[m]:
4);
End.
二分查找法完整版
programjjzx(input,output);
var
a:
array[1..10]ofinteger;
i,j,n,x:
integer;
begin
writeln('输入10个从小到大的数:
');
fori:
=1to10doread(a[i]);
writeln('输入要查找的数:
');
readln(x);
i:
=1;n:
=10;j:
=trunc((i+n)/2);
ifa[n]
writeln('查找失败,数组中无此元素!
')
else
begin
repeat
ifa[j]>xthen
begin
n:
=j;j:
=trunc((i+n)/2)
end
else
begin
i:
=j+1;j:
=trunc((i+n)/2)
end
until(a[j]=x)or(i=j);
ifa[j]=xthen
writeln('查找成功!
位置是:
',j:
3)
else
writeln('查找失败,数组中无此元素!
')
end
end.
想想还有其他的方法解决X大于数组中的任何一个数的方法这种情况的方法吗?
统计算法
作用:
在给定的范围内求出符合设定条件的记录个数。
算法基本思想:
用一个条件语句判断当前记录是否符合给定条件,符合则统计个数加一。
用循环实现对所有记录的操作。
举例说明:
例一、从键盘敲进任意个(少于255个)字符,然后求出其中某一个字母的个数(如大写字母A)。
分析:
用一个字符串变量来接受从键盘输入的字符,然后从第一个字符开始对每一个字符进行处理,如果是A则个数加一,最后把总的统计个数输出。
程序代码:
programjjzx(input,output);
type
str=string[255];
var
st:
str;
n,i,j:
integer;
be