pascal排序算法

这个问题我前不久做过,用冒泡排序就能解决。不信你编一个试试看。

思想是按照第一个顺序或者最后一个顺序把最小的放在最左边,不考虑途中的任何情况,然后移动下一个最小的,再移动更小的,直到倒数第二个移动到位,最后一个也移动。

因此,这种思想可以看作是冒泡排序的一种变体。

代码很简单,我就不给出了。如果你真的编起来有困难,那就来说说吧。我认为想法比代码更重要。代码能力可以通过做题来实现,但是思路必须自己去理解。

奖学金

程序a1(输入,输出);

定义变量

n,x,y,z,I,j:整数;

a:数组:= x;

a:= x+y+z;

结束;

对于i:=1到n-1,执行{选择排序}

对于j:=i+1到n do

如果(a & lta)或((a=a)和(a & lta))或((a[i,1]& gt;a[j,1])和(a=a)和(a=a))那么

开始

swap(a[i,1],a[j,1]);

互换(a,a);

互换(a,a);

结束;

for i:=1到5 do

writeln(a[i,1],' ',a);

结束。