2進数を10進数に変換します。10進数を2進数に変換するにはdecToBin関数を使います。
- 構文
- 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
解説
- 2行目
10進数に変換した値を代入する変数dec。dec = 0
- 3行目
n=1からbinの文字数だけ繰り返す。FOR n = 1 TO LENGTH(bin)
- 4行目
dec = dec + COPY(bin, n, 1) * POWER(2, LENGTH(bin) - n)
- 6行目
変数decを戻値として返す。RESULT = dec
この記事は役に立ちましたか?