ASP如何对输入的一串数字排序

2004-10-07 05:34:40 194 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Linux - xarray 工具类第三层节点直接与绿色的值绑定，若需要像数组一样通过下标访问绿色的值对象那么需要给每一个节点进行编码，这样通过根节点即可访问到具体的对象。对于未使用到的小数组不申请空间，这样只需设计一种方法将这些非连续的小数组在一个数据结构中组织在一起即可，对于这个数组结构需要具有结构紧凑并且能够快速定位到对应的小数组段上，这时候树形结构上场了。一个很大的数组必然可以由一个个小数组拼接而成，若定义一个最小粒度的数组长度，比如长度4，那么从宏观上看一个大数组就由一个个长度为4的小数组排队而成。阅读详情

比如这串数字是：8,3317,25,137,2,78,871,131,86
输出的结果要从小到大顺序，请问用ASP怎么写？

...全文

智能优化电池：基于单片机的电池管理系统设计简介：本设计是基于单片机的电池管理系统，主要实现以下功能：可通过LCD1602显示温度、电压电流值；可通过按键调整温度、电压和电流的阈值；用ADC0832将模拟量转换为数字量。标签：51单片机、LCD1602、ADC0832 效果图：总体资料：原理图：软件设计流程：系统框图：本设计以STC89C52单片机为核心控制器，加上其他的模块一起组成电动汽车的电池管理的整个系统，... 阅读详情

aspnewuser

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

超级大笨狼 2004-12-25

打赏
举报

来晚拉

sub sortA( Arr)
'堆排序，复杂度n*log(n)/log(2),如果8个数就是24次，如果用冒泡是8^2=64次
dim n,i,L,ir,rArr,j
n = ubound(Arr) '7,8个元素
L = int(n / 2)+1
ir = n
do
if L > 1 then
L = L - 1
rArr = Arr(L)
else
rArr = Arr(ir)
Arr(ir) = Arr(1)
ir = ir - 1
if ir = 1 then
Arr(1) = rArr
exit sub
end if
end if
i = L
j = 2 * L
while j <= ir
if j < ir then
if Arr(j) < Arr(j + 1) then j = j + 1
end if
if rArr < Arr(j) then
Arr(i) = Arr(j)
i = j
j = 2 * j
else
j = ir + 1
end if
wend
Arr(i) = rArr
loop
end sub

wzgme 2004-10-07

打赏
举报

<%
''********数组排序
Dim MyArray
MyArray = Array(8,3317,25,137,2,78,871,131,86)
MyArray = Sortasc(MyArray) ''---调用升序
For I = 0 to Ubound(MyArray)
Response.Write MyArray(I) & "<br>" & vbCRLF
Next
Response.End

''------------降序
Function Sortdesc(ary)
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For I = UBound(ary) to 0 step -1
If I = 0 Then Exit For
If ary(I) > ary(I-1) Then
FirstValue = ary(I)
SecondValue = ary(I-1)
ary(I) = SecondValue
ary(I-1) = FirstValue
KeepChecking = TRUE
End If
Next
Loop
Sortdesc = ary
End Function
''----------升序
Function Sortasc(ary)
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For I = 0 to UBound(ary)
If I = UBound(ary) Then Exit For
If ary(I) > ary(I+1) Then
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
ary(I+1) = FirstValue
KeepChecking = TRUE
End If
Next
Loop
Sortasc = ary
End Function
%>

guoweidong 2004-10-07

打赏
举报

呵呵,我用的方法跟 net_lover(孟子E章)不一样,我写的是数据结构中的"冒泡"算法. net_lover(孟子E章)直接调用已有的函数.

http://community.csdn.net/Expert/topic/3431/3431181.xml?temp=.1467401

guoweidong 2004-10-07

打赏
举报

<%
dim num
num=Array(8,3317,25,137,2,78,871,131,86)
for j=0 to ubound(num)
for i=0 to ubound(num)
dim temp
if num(j)<num(i) then
temp = num(j)
num(j)=num(i)
num(i)=temp
end if
next
next
for i=0 to ubound(num)
response.Write num(i)&","
next
%>

啊,我第一次写这东东,写慢啦.

孟子E章 2004-10-07

打赏
举报

<%
ss= "8,3317,25,137,2,78,871,131,86"
Response.Write SortArray(ss)
%>
<script language="javascript" runat=server>
function SortArray(s)
{
a = s.split(",")
var b = new Array()
for(i=0;i<a.length;i++)
b[i]=parseFloat(a[i])
aa = b.sort(numberSort)
return aa.toString();
}
function numberSort(n1,n2) {
return n1-n2;
}
</script>

孟子E章 2004-10-07

打赏
举报

ASP如何对输入的一串数字排序

相关推荐