lele9013 发表于 2008-11-30 20:59:08

有10个未知数字 如何对比 哪个最大 哪个最小吗？

有10个未知数字 如何对比 哪个最大 哪个最小吗？

= = 请教？

非常感谢= =

[ 本帖最后由 lele9013 于 2008-12-1 21:45 编辑 ]

sanhen 发表于 2008-11-30 22:20:28

冒泡排序。。。




Local $b="",$d="",$x
Local $a =

For $x=0 To UBound($a)-1
        $d&= $a[$x]&Chr(32)
Next


For $i=0 To 9
For $j =0 To $i
        If $a[$i] < $a[$j] Then
                $c=$a[$i]
                $a[$i]=$a[$j]
                $a[$j]=$c

EndIf
Next

Next

For $i=0 To 9
        $b&=$a[$i]&Chr(32)
Next



MsgBox(0,"冒泡排充","排序前："&@CRLF&$d&@CRLF&@CRLF&"排序后："&@CRLF&$b)



pusofalse 发表于 2008-11-30 22:40:40

Local $numerics =
Dim $result, $Zeros= "0000000000000000000000000000000000000000000000000000000"
For $i = 0 to 9
        $x = 1
        $M = StringRight($Zeros & $numerics[$i], 50)
        For $y = 0 to 9
                $N = StringRight($Zeros & $numerics[$y], 50)
                If $M > $N then $x += 1
        Next
        Assign("_" & $x, $numerics[$i])
Next
MsgBox(0, "", "Min: " & Eval("_1") & @Lf & "Max: " &Eval("_10"))

sanhen 发表于 2008-12-1 00:13:21

惭愧。。。AU3本身就集成了冒泡的函数和查找数组大小的函数。

#include <Array.au3>

Local $avArray =

MsgBox(0,0,"最小数值是："&_ArrayMin($avArray, 1)&@CRLF&"最大数值是："&_ArrayMax($avArray, 1))


bing614 发表于 2008-12-1 02:03:03

呵呵!    很好

superflq 发表于 2008-12-1 17:05:14

原帖由 sanhen 于 2008-12-1 00:13 发表 http://www.autoitx.com/images/common/back.gif
惭愧。。。AU3本身就集成了冒泡的函数和查找数组大小的函数。

#include

Local $avArray =

MsgBox(0,0,"最小数值是："&_ArrayMin($avArray, 1)&@CRLF&" ...
\


学习了，还有这么一个好的命令

hollandmfq 发表于 2014-5-6 10:03:09

雷锋精神传天下！谢谢分享！
页: [1]
查看完整版本: 有10个未知数字 如何对比 哪个最大 哪个最小吗？