希望能讲讲原理，再附上程序段，谢！

ABCD AB AC AD BC BD BC

???

冒泡排序没有实际用处，一般的题都必须用快速排序.所以，你好事不要学冒泡了，

数据范围小的话~ 冒泡是不错的。再说冒泡稳定性比快排好 而且简单

> 数据范围小的话~ 冒泡是不错的。再说冒泡稳定性比快排好 而且简单与其用冒泡，不如用插入：同样简单稳定，速度就快上一倍。

我们学校N多人喜欢用冒泡排序，还有cqf也喜欢用冒泡，他一般不用Qsort的。

cqf大牛```````` ？？？？？？？？？？

冒泡排序就是大的数往下，小的数往上。最主要是交换顺序。交换顺序最基本的是例如：交换a，b的顺序。 t：=a； （给t赋值，以保留a原本的值） a：=b； （t，tent的缩写，暂时的意思） b：=t；冒泡排序可以应用在数组（array）里。

新建逻辑变量F每一趟排序前赋值为假如发生交换动作则赋值为真每一趟结束后如为假则直接结束

冒泡到底好不好用？

可以给你提供以下思路， 要想优化冒泡，可以判断哪个数字是否改变了位置，如果没有变说明这个数字就不用进行比较了直接跳出循环。

其实冒泡优化就变成选择了，意义不大

var
a:array[1..20]of real;
i,j:real;
k:integer;
c:boolean;
begin
for i:=1 to 20 do read(a[i]);
i:=1;
repeat
c:=true;
for j:=1 to 20-i do
if a[j]<a[j+1] then
begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
c:=false;
end;
i:=i+1;
until c;
for i:=1 to 20 do write(a[i],' ');
end.
应该没错，我懒得检查了

此乃优化后的，判断数组是否位置变化了，没有的话就跳出。

冒泡代码短啊 打着方便啊

快速排序，Pascal文件里内置，搜索qsort.pp（一定是.pp啊，回头改成pas就行），完了优化完毕

懒人、理解力差的还是用冒泡的好，代码短点，要是大的程序就不要了，快速和希尔都不错

选择不知道比冒泡好记多少倍
我以前背冒泡的算法 上机一直打成选择

冒泡优化？没听过，
我一般用堆排，明确的时候qs，数据小的时候桶排序+记录排序