decToBin

10進数を2進数に変換します。2進数を10進数に変換するにはbinToDec関数を使います。

構文
  1. UString = decToBin( dec )
引数
dec
10進数
戻値
2進数に変換した値

プログラム

//////////////////////////////////////////////////
// 【引数】
//   dec : 10進数 
// 【戻値】
//   2進数に変換した値 
//////////////////////////////////////////////////
FUNCTION decToBin(dec)
	bin = ""
	REPEAT
		bin = (dec MOD 2) + bin
		dec = INT(dec/2)
	UNTIL dec = 0
	RESULT = bin
FEND

解説

  1. 2行目
    	bin = ""
    
    2進数に変換した値を代入する変数bin。
  2. 4行目
    		bin = (dec MOD 2) + bin
    
    decを2で割った余りをbinの左側に結合。
  3. 5行目
    		dec = INT(dec/2)
    
    decを2で割った商をdecに代入。
  4. 6行目
    	UNTIL dec = 0
    
    decが0になるまで繰り返す。
  5. 7行目
    	RESULT = bin
    
    binを戻値として返す。