HSPTV!掲示板

この記事は投稿者により削除されました。
2010/2/28(Sun) 11:52:43

うむむ。もし、10進数nを二進数にしたら、どのビットが立っているかを調べたいのであったなら、こんな感じのリストになります。
やっぱり、ビットシフトを使って、何番目のビットが立っているかを調べる。

	;10進数nを二進数にしたら、どのビットが立っているかを調べるプログラム

	n=123						;調べたい値

	#define TOTALBITS	16		;総ビット数(1〜31)
	dim BITLIST,TOTALBITS		;BITLIST(TOTALBITS〜0)に、結果が入る

	i=0x1
	repeat TOTALBITS
		if (n&(i<<cnt))!0:BITLIST(cnt)=1
	loop

	;結果表示
	repeat TOTALBITS
		mes str(cnt+1)+":"+str(BITLIST(cnt))
	loop