一句话明白排序算法之一——选择排序法
来源:互联网 发布:crossfit slash知乎 编辑:程序博客网 时间:2024/06/14 11:24
核心思想:假设一个为最大
选择排序演示:
宏观把握:
第一论:
从第一个位置开始,让第一个数和第二个数比较,如果第一个数小于第二个数,则交换这两个数的位置,如果第一个数大于第二个数,则位置不变,这样第一个位置存放的是大的数,接着让第一个位置上的数(即大数)和第三个数比较,同样,大于第三个数则交换位置,否则,不交换位置,接着让第一个位置上的数和剩下的数比较,同上面的原理,这样一轮比较过后,第一个位置上的数为最大的数。然后存放到数组a(0)中。
第二轮:
让剩下的数中a(1)中的数依次和后面的数比较,若a(1)大于a(2),则让a(1)中的数和a(2)中的数交换位置,否则不交换,这样a(1)中存放的是大数,接着放a(1)中的数和后面的数比较,同样的道理,这样比较下去之后,a(1)中存放着剩下的数的最大数。依次类推。
总结:
对n个数排序,共需比较 n-1 轮,具体到第i轮需要完成的任务是:对数组后面的n-i+1个下表变量进行比较,需要比较 n-i次。
排序三角形
代码:
对7个随机数进行排序:
1.产生7个随机整数:
Private Sub Form_Load()
Dim p As String 'p为字符串变量,存放十个随机数
Randomize
p = ""
For i = 1 To 7 '产生7个随机数
Do
x = Int(Rnd * 11) + 10 'x=10到100之间的任意的一个整数
yes = 0 '得到一个随机数之后,就让yes=0.
'查重
For j = 1 To i - 1
If x = a(j) Then yes = 1: Exit For '如果检查出有重复,则退出查重循环,此时 yes=1
Next j
Loop While yes = 1 '用yes进行标识,当有重复的时候yes=1时,重新执行do loop循环操作,此时i值不变,x又重新获得一个随机 数,如果没有检查到重复,yes=0,退出do loop循环,接 着执行下面的程序,把x的值赋给a(i), i值加1.
a(i) = x
p = p & Str(a(i)) & ","
Next i
Label1.Caption = LTrim(Left(p, Len(p) - 1))
Label2.Caption = ""
End Sub
2、排序
p = ""
For i = 1 To 6 '需要6轮比较
For j = i + 1 To 7 '每一轮需要比较n-1次 ,每一轮都让本轮的第一 个数和他的下一个数开始比较,所以内循环的初 值是i+1, 需要比较到最后一个数,所以末值n(比 较的数的个数)
If a(i) < a(j) Then
t = a(i): a(i) = a(j): a(j) = t '实现交换
End If
Next j
Next i
For i = 1 To 10
p = p & Str(a(i)) & ","
Next
Label2.Caption = LTrim(Left(p, Len(p) - 1))
选择排序每轮比较之后,都会出现本轮中的最大的一个,比较直观。
- 一句话明白排序算法之一——选择排序法
- 一句话明白排序算法之二——冒泡排序
- 一句话明白排序算法之三——插入排序
- 一句话明白排序算法之四——桶排序
- 排序算法之一 选择排序
- 排序算法之一---选择排序
- 排序算法——选择排序法
- 排序算法—选择排序
- 经典算法之一《选择排序》
- 八大排序算法的一句话总结之一插入排序
- 排序算法之一——插入排序
- 排序算法之选择排序——简单选择排序
- 数据结构&算法实践—【排序|选择排序】选择排序
- 排序算法1—插入排序、选择排序、冒泡排序
- 常用排序法之一 ——冒泡排序法和选择排序法
- 排序算法之——选择排序
- 排序算法——选择排序
- 排序算法——选择排序
- PAT L2-2 链表去重
- 关于无人机,你需要知道的都在这里了
- mysql触发器案例
- AngularJS中,联合使用ng-repeat和ng-if,可以实现对数据删选显示效果,特别适合于用作表单数据的显示
- 运动跟踪之CMT算法
- 一句话明白排序算法之一——选择排序法
- 企业Linux服务器五款必备基本软件
- Android之自定义ViewGroup
- 单例模式
- jdk tomcat 安装
- Fragment跳转
- Spring Mvc那点事---(4)Spring Mvc控制器Controller
- XML解析技术和使用Jaxp对xml文档进行dom解析
- ElasticSearch 攻略(三)概念认识