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

lele9013

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

= = 请教？

非常感谢  = =

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

sanhen

冒泡排序。。。

Local $b="",$d="",$x
Local $a[10] = [10, 50, 110, 33,9,555, 235, 995,15, 888]

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

Local $numerics[10] = [19, 89, 3, 11, 4, 16, 2008, 99, 77, 56]
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

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

#include <Array.au3>

Local $avArray[10] = [19, 89, 3, 11, 4, 16, 2008, 99, 77, 56]

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

bing614

呵呵!    很好

superflq

原帖由 sanhen 于 2008-12-1 00:13 发表
惭愧。。。AU3本身就集成了冒泡的函数和查找数组大小的函数。
[au3]
#include

Local $avArray[10] = [19, 89, 3, 11, 4, 16, 2008, 99, 77, 56]

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

\


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

hollandmfq

雷锋精神传天下！谢谢分享！