バイナリ変換

私が「バイナリ」という意味を勘違いしてるかもしれませんが、
10進数を2進数として表示する、という意味でバイナリ変換と書いてます。

ソース

*バイナリに変換
   D=それ。B=「」。s=0
   
   *バイナリに変換_ループ
      S=2^s
      もし、S=0ならば、S=1'ゼロ乗=0になってしまうバグ対策。
      Dと、Sの、AND。
      もし、それ=0ならば、B=「0」&B
      違えば、(B=「1」&B。D=D-S。)
      s=s+1
   もし、D>0ならば、バイナリに変換_ループへ、飛ぶ。
   
   それ=B
   戻る。
『それ』の10進数を、2進数に変換して『それ』に返します。
『もし、S=0ならば、S=1。』は、ひまわり1.36以前ではゼロ乗=0になるバグの対策です。

*バイナリから変換
   B=それ。D=0。s=0
   
   *バイナリから変換_ループ
      Bから、1文字、右端を切り取る。
      もし、それ=1ならば、D=D+2^s
      s=s+1
   もし、B<>「」ならば、バイナリから変換_ループへ、飛ぶ。
   
   それ=D
   戻る。
『それ』の2進数を、10進数に変換して『それ』に返します。

それ=4。表示。
バイナリに変換。表示。
バイナリから変換。表示。

待機。
では、先ほどの『バイナリに変換』『バイナリから変換』の上にこの文を加えて、実行してみましょう。


(C) 2002 moka