UWSC辞典

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

構文

1. Double = binToDec( bin )

引数

bin

2進数

戻値

10進数に変換した値

プログラム

//////////////////////////////////////////////////
// 【引数】
//   bin : 2進数 
// 【戻値】
//   10進数に変換した値 
//////////////////////////////////////////////////
FUNCTION binToDec(bin)
	dec = 0
	FOR n = 1 TO LENGTH(bin)
		dec = dec + COPY(bin, n, 1) * POWER(2, LENGTH(bin) - n)
	NEXT
	RESULT = dec
FEND

解説

1. 2行目

   	dec = 0
   

   10進数に変換した値を代入する変数dec。

2. 3行目

   	FOR n = 1 TO LENGTH(bin)
   

   n=1からbinの文字数だけ繰り返す。

3. 4行目

   		dec = dec + COPY(bin, n, 1) * POWER(2, LENGTH(bin) - n)
   

4. 6行目

   	RESULT = dec
   

   変数decを戻値として返す。