Что нового

раскидать биты в массив?

Kalisnik

Эволюция
Сообщения
295
Репутация
63
Имеем некоторое десятичное число: 17. Получаем его бинарное представление: 10001. Нужно положить каждый бит этого числа в отдельную ячейку массива. Как это реализовать?
Код:
dim $keyArray[5] = [1, 0, 0, 0, 1]
 

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
У меня получилось так :
Код:
#include <array.au3>
Global $aRezult[0]
$Digit =17
_IntToBin($Digit)
_ArrayDisplay($aRezult)

Func _IntToBin($Dig)
	$i = 0
	While $Dig > 0
		$i += 1
		ReDim $aRezult[$i]
		$aRezult[$i - 1] = Mod($Dig, 2)
		$Dig = Int($Dig / 2)
	WEnd
	_ArrayReverse($aRezult)
EndFunc   ;==>_IntToBin
 
Автор темы Похожие темы Форум Ответы Дата
W О проекте и форуме 0
Похожие темы
Битые ссылки
Верх