[讨论]做一个简单排序算法

马大哈

<P>冒泡法我已经做了一个例子出来,大家可以尝试用其他的算法做出来.</P>
<P>也可以自己独立做做冒泡法.它应该算是最简单的了吧.</P>

马大哈

<P>VB啦</P><P>去下载专区下载吧.</P>

马大哈

学C时，排序算法应该是必修的吧

马大哈

<P>哈</P><P>我也是在C的一本书上看了排序的原理,其实以前也没有写过.</P>

马大哈

请问你是QQ上的哪位呀?[em04][em04][em04][em04]

马大哈

没有啦~~

因为我现在都没有碰上什么算法相关的软件,所以对算法没有什么了解....

我能写出的,都是别人早就写出并已经成为出版物的那些东西了.

马大哈

.........................................................................

马大哈

<p>顶!!</p><p></p><p>收藏起来!</p>

马大哈

<p>呵呵,语法形式不同,各有各的优势.</p><p></p><p>我最近工作上非常的忙,烦得死人....</p><p></p><p>现在又刚装了ADSL,晚上这下有时间了,嘿嘿</p>

hd37

哈哈哈
这么多排序方法，无论冒泡还是什么的，似乎至少要2个循环
我提供一个排序的算法，只需要1个循环，而且排序的效率是由被排序数据的熵（混乱程度）决定的。

1. Dim a(9)
   
2. a(0) = 56
   
3. a(1) = 65
   
4. a(2) = 99
   
5. .....
   
6. a(9) = 58
   
7. For i = 0 To 9
   
8.     If i <> 0 Then
   
9.         If a(i) < a(i - 1) Then
   
10.             temp = a(i)
    
11.             a(i) = a(i - 1)
    
12.             a(i - 1) = temp
    
13.             i = i - 2                   '注意这一句
    
14.             If i < 0 Then i = 0
    
15.         End If
    
16.     End If
    
17. Next
    
18. print a(0);a(1)......(a9);

复制代码

呵呵，是不是只用了一个循环。大家看明白了吧？好了，不早啦，睡觉~~~~

马大哈

<p>很巧妙呀....</p><p>每次循环,判断与前一个值的大小关系,如果交换了就对前一个值重新判断</p><p>顶!</p>