2014-02-26
展开全部
详解: http://baike.baidu.com/w?ct=17&lm=0&tn=baiduWikiSearch&pn=0&rn=10&word=%C5%C5%D0%F2&submit=search归并排序 归并排序归并排序是建立在归并操作上的一种有效的排序算法。该算法是采用分治法(Divide and Conquer)的一个非常典型的应用。归并(Merge)排序法是将两个(或两个以上)有序表合并成一个新的有序表,即把待排序序列分为若干个子序列,每个子序列是... 5千字 2008-7-24 coolxiaojiB 快速排序 概述快速排序(Quick Sort)是一种有效的排序算法。虽然算法在最坏的情况下运行时间为O(n^2),但由于平均运行时间为O(nlogn),并且在内存使用、程序实现复杂性上表现优秀,尤其是对快速排序算法进行随机化的可能,使得快速排序在一般情况下是最实用... 8千字 2008-7-29 追月一族2 堆排序 斯坦福大学计算机科学系教授罗伯特·弗洛伊德(Robert W.Floyd)和威廉姆斯(J.Williams)在1964年共同发明了著名的堆排序算法( Heap Sort ) 定义n个关键字序列Kl,K2,…,Kn称为(Heap),当且仅当该序列满足如下性质(简称为堆性质): (1... 10千字 2008-7-14 Watfourane 冒泡排序 冒泡排序:BubbleSort基本概念冒泡排序的基本概念是:依次比较相邻的两个数,将大数放在前面,小数放在后面。即首先比较第1个和第2个数,将大数放前,小数放后。然后比较第2个数和第3个数,将大数放前,小数放后,如此继续,直至比较最后两... 3千字 2008-4-12 凛冬将至_ 排序算法 所谓排序,就是使一串记录,按照其中的某个或某些关键字的大小,递增或递减的排列起来的操作。分类在计算机科学所使用的排序算法通常被分类为: 计算的复杂度(最差、平均、和最好表现),依据串列(list)的大小(n)。一般而言,好的表现... 5千字 2008-3-18 12月26日魔羯座 希尔排序 希尔排序(Shell Sort)是插入排序的一种。因D.L.Shell于1959年提出而得名。希尔排序基本思想基本思想:先取一个小于n的整数d1作为第一个增量,把文件的全部记录分成d1个组。所有距离为dl的倍数的记录放在同一个组中。先在各组内进行直... 2千字 2008-1-15 WXD11011 基数排序 “基数排序法”(radix sort)则是属于“分配式排序”(distribution sort),基数排序法又称“桶子法”(bucket sort)或bin sort,顾名思义,它是透过键值的部份资讯,将要排序的元素分配至某些“桶”中,藉以达到排序的作用,基数排序法是属于稳定性... 2千字 2007-12-23 gotolabel Shell排序 希尔排序是一种快速排序法,它出自D.L.Shell,因此而得名。Shell排序又称作缩小增量排序。基本思想:不断把待排序的对象分成若干个小组,对同一小组内的对象采用直接插入法排序,当完成了所有对象都分在一个组内的排序后,排序过程结束。... 1千字 2006-10-14 raoping2005 选择排序 基本思想 每一趟从待排序的数据元素中选出最小(或最大)的一个元素,顺序放在已排好序的数列的最后,直到全部待排序的数据元素排完。 选择排序是不稳定的排序方法。排序过程 【示例】: 初始关键字 [49 38 65 97 76 13 27 49]第一...
2014-02-26
展开全部
VB编程:选择法及冒泡法排序数组
求使用随机数,给一个含10个元素的数组赋值,值的大小在50到100之间,赋值后显示组数各元素;然后从小到大排序,排序后,再次用Print方法显示组数各元素。
如 :排序前:5 6 7 1 3 2 4 8 9 0
排序后:0 1 2 3 4 5 6 7 8 9
能两种方法都用的最好.
Dim RNDDATA(1 To 15) As Integer '定义窗体级别的数组变量
Private Sub cmdRnd_Click()
txtRndData.Text = "" '清除输入区
txtOutPut.Text = "" '清除输出区
Randomize
Dim intindex As Long
For intindex = 1 To 15
'填充随机数,并使用Cint强制转换为整数类型
RNDDATA(intindex) = CInt(100 * Rnd + 1)
'vbCrlf为VB常数,表示回车换行
txtRndData.Text = txtRndData.Text & RNDDATA(intindex) & vbCrLf
Next intindex
End Sub
Private Sub cmdArray_Click()
Dim i As Long
Dim j As Long
Dim iMin As Integer
Dim iTemp As Integer
For i = 1 To 14 '15个数进行14轮比较
iMin = i '第一轮比较的时候,假设第i个元素最小
'在数组剩下后面的数字中选择出最小的数(i到15)
For j = i + 1 To 15
If RNDDATA(j) < RNDDATA(iMin) Then iMin = j
Next j
'i到15中的最小的数,与第i个元素进行交换
iTemp = RNDDATA(i)
RNDDATA(i) = RNDDATA(iMin)
RNDDATA(iMin) = iTemp
Next i
'显示排序的结果
txtOutPut.Text = ""
For i = 1 To 15
txtOutPut.Text = txtOutPut.Text & RNDDATA(i) & vbCrLf
Next i
End Sub
Private Sub cmdExit_Click()
Unload Me
End
End Sub
求使用随机数,给一个含10个元素的数组赋值,值的大小在50到100之间,赋值后显示组数各元素;然后从小到大排序,排序后,再次用Print方法显示组数各元素。
如 :排序前:5 6 7 1 3 2 4 8 9 0
排序后:0 1 2 3 4 5 6 7 8 9
能两种方法都用的最好.
Dim RNDDATA(1 To 15) As Integer '定义窗体级别的数组变量
Private Sub cmdRnd_Click()
txtRndData.Text = "" '清除输入区
txtOutPut.Text = "" '清除输出区
Randomize
Dim intindex As Long
For intindex = 1 To 15
'填充随机数,并使用Cint强制转换为整数类型
RNDDATA(intindex) = CInt(100 * Rnd + 1)
'vbCrlf为VB常数,表示回车换行
txtRndData.Text = txtRndData.Text & RNDDATA(intindex) & vbCrLf
Next intindex
End Sub
Private Sub cmdArray_Click()
Dim i As Long
Dim j As Long
Dim iMin As Integer
Dim iTemp As Integer
For i = 1 To 14 '15个数进行14轮比较
iMin = i '第一轮比较的时候,假设第i个元素最小
'在数组剩下后面的数字中选择出最小的数(i到15)
For j = i + 1 To 15
If RNDDATA(j) < RNDDATA(iMin) Then iMin = j
Next j
'i到15中的最小的数,与第i个元素进行交换
iTemp = RNDDATA(i)
RNDDATA(i) = RNDDATA(iMin)
RNDDATA(iMin) = iTemp
Next i
'显示排序的结果
txtOutPut.Text = ""
For i = 1 To 15
txtOutPut.Text = txtOutPut.Text & RNDDATA(i) & vbCrLf
Next i
End Sub
Private Sub cmdExit_Click()
Unload Me
End
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2014-02-26
展开全部
1) 数列的赋值要求用函数实现。
(2) 使用“直接法”进行排序,用函数实现并统计排序次数。
(3) 使用“插入法”进行排序,用函数实现并统计排序次数。
(4) 使用“希尔法”进行排序,用函数实现并统计排序次数。
(2) 使用“直接法”进行排序,用函数实现并统计排序次数。
(3) 使用“插入法”进行排序,用函数实现并统计排序次数。
(4) 使用“希尔法”进行排序,用函数实现并统计排序次数。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询