求解一个“排序”的问题。

2002-08-28 01:47:08 184 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

众数问题-递归和分治问题描述给定一个数组，找出其中出现次数最多的那个元素（即众数）。例如： 1 2 2 2 3 5 众数是： 2 算法思路：先排序后用分治法计算求解分治法求解代码如下: #include #include #include using namespace std; /*----------快速排序*/ int Partit 阅读详情

如何将一个由N个不同的正整数组成的数字组合，按照递增的方式排列？

例如：将下面的组合

A(25)：06,14,21,23,25,07,10,17,22,09,11,12,13,20,01,15,19,05,24,08,03,04,02,16,18

重新排列，使其变成：

B(25)：01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25

数据源 A(1) - A(25) 的数值没有重复，但大小顺序是不固定的。

如果不使用数据库的字段进行记录并转换，代码该怎么写？

...全文

拓扑排序以及求解关键路径拓扑排序以及求解关键路径都是属于有向无环网的应用拓扑排序:解决工程能否顺序进行的问题介绍2个概念 AOV网：在一个表示工程的有向图中，用顶点表示活动，用弧表示活动之间的优先关系，这样的有向图为顶点表示活动的网，我们称之为AOV网。弧表示活动之间的某种制约关系：比如演职人员确定了，场地联系好了，才可以开始进场拍摄。 AOV网中不能存在回路，即不能存在环，否则某个活动的开始要以自己完成... 阅读详情

shdfl

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

qiushuiwuhen 2002-08-30

打赏
举报

meizz 2002-08-30

打赏
举报

秋水就是秋水，高！

ehom 2002-08-28

打赏
举报

要哪种?冒泡排序,插入排序还是选择排序!这种最最基础的算法问题,随笔找个搜索引擎也能找到一堆各种语言的代码!

Sub BubbleSortNumbers(iArray As Variant)
Dim lLoop1 As Long
Dim lLoop2 As Long
Dim lTemp As Long
For lLoop1 = UBound(iArray) To LBound(iArray) Step -1
For lLoop2 = LBound(iArray) + 1 To lLoop1
If iArray(lLoop2 - 1) > iArray(lLoop2) Then
lTemp = iArray(lLoop2 - 1)
iArray(lLoop2 - 1) = iArray(lLoop2)
iArray(lLoop2) = lTemp
End If
Next lLoop2
Next lLoop1
End Sub

Sub SelectionSortNumbers(vArray As Variant)
Dim lLoop1 As Long
Dim lLoop2 As Long
Dim lMin As Long
Dim lTemp As Long
For lLoop1 = LBound(vArray) To UBound(vArray) - 1
lMin = lLoop1
For lLoop2 = lLoop1 + 1 To UBound(vArray)
If vArray(lLoop2) < vArray(lMin) Then lMin = lLoop2
Next lLoop2
lTemp = vArray(lMin)
vArray(lMin) = vArray(lLoop1)
vArray(lLoop1) = lTemp
Next lLoop1
End Sub

Sub ShellSortNumbers(vArray As Variant)
Dim lLoop1 As Long
Dim lHold As Long
Dim lHValue As Long
Dim lTemp As Long
lHValue = LBound(vArray)
Do
lHValue = 3 * lHValue + 1
Loop Until lHValue > UBound(vArray)
Do
lHValue = lHValue / 3
For lLoop1 = lHValue + LBound(vArray) To UBound(vArray)
lTemp = vArray(lLoop1)
lHold = lLoop1
Do While vArray(lHold - lHValue) > lTemp
vArray(lHold) = vArray(lHold - lHValue)
lHold = lHold - lHValue
If lHold < lHValue Then Exit Do
Loop
vArray(lHold) = lTemp
Next lLoop1
Loop Until lHValue = LBound(vArray)
End Sub

给出三种排序方法,自己参考下!

求解一个“排序”的问题。

相关推荐