1007236046 发表于 2012-4-18 20:02:25

将数组中的奇数翻倍,偶数删除[已解决]

本帖最后由 1007236046 于 2012-4-19 11:30 编辑

有一数组$array,数组内元素个数不确定,但都是数字,怎样将数组中的奇数翻倍,偶数删除

pusofalse 发表于 2012-4-18 20:16:12

#include <Array.au3>

Local $aArray =
Local $iUBound = UBound($aArray)

Local $aNewArray[$iUBound], $iIndex

For $i = 0 To $iUBound - 1
        If BitAND($aArray[$i], 1) Then
                $aNewArray[$iIndex] = $aArray[$i] * 2
                $iIndex += 1
        EndIf
Next
Redim $aNewArray[$iIndex]

_ArrayDisplay($aNewArray)

whitehead 发表于 2012-4-18 20:44:53

$iIndex的用法学习了

1007236046 发表于 2012-4-18 21:15:53

感谢版主,如果能够只在原数组里操作就最好了,就是最后把结果放在$aArray这个数组中{:face (52):}

afan 发表于 2012-4-18 21:20:29

回复 4# 1007236046


    $aArray = $aNewArray

Geegle 发表于 2012-4-18 21:22:54

学习了哈。。。

1007236046 发表于 2012-4-18 21:35:31

谢谢大家,完美解决了

PEM-System 发表于 2013-9-5 05:08:26

学习了 不过不好消化

zxxputian2 发表于 2018-5-31 10:40:04

谢谢楼主解答,支持你
页: [1]
查看完整版本: 将数组中的奇数翻倍,偶数删除[已解决]