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

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[10] = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
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这个数组中

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

谢谢楼主解答，支持你

		自动登录	找回密码
密码			加入

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

评分

相关帖子

评分