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//////////////////////////////////////////////////
// 【引数】
//   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