新しく発言する  EXIT  インデックスへ

16進法


  16進法 マメ 2008/03/27 23:16:08 
  !10進レジスター:16進レジスターのよう... SECOND 2008/03/28 01:51:15 
Re: 16進法  返事を書く  ノートメニュー
SECOND <jjqdmekgpt> 2008/03/28 01:51:15
!10進レジスター:16進レジスター のように並べて
!右方向にシフトする(16で割る)方法です。

DIM hex(8) ! ←出力の最大桁

LET dec=100000 ! ←入力の unsigned 10進数

LET p=1
DO WHILE 16<=dec
LET hex(p)=MOD(dec,16)
LET dec=INT(dec/16)
LET p=p+1
LOOP
LET hex(p)=dec

! hex(p) 〜 hex(1)  ←出力の unsigned 16進数

FOR i=p TO 1 STEP -1
LET y=hex(i)
PRINT mid$( "0123456789ABCDEF", y+1 ,1 );
NEXT i

END
  │└!エピソード SECOND 2008/03/28 18:04:07 
  │ └エピソード2 SECOND 2008/03/28 19:17:59 
  │  └!2進化10進数(BCD、Binary-codeddecimal)... 山中和義 2008/03/30 12:52:58 
  簡単なのは組込み関数のBSTR$を使うことです... 荒田浩二 2008/03/28 11:39:51  (修正1回)

 インデックスへ  EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。