qbasic - QBASIC 十进制到二进制转换

Question

我在 QBASIC 中使用 STR$() 将十进制数转换为二进制数。但我需要一种不使用字符串函数将十进制数转换为二进制数的方法。谢谢。

我的代码：

CLS
INPUT N
WHILE N <> 0
    E = N MOD 2
    B$ = STR$(E)
    N = FIX(N / 2)
    C$ = B$ + C$
WEND
PRINT "Output "; C$
END

Answer 1

此代码示例在 Basic 中将数值转换为二进制字符串。

PRINT "Enter value";
INPUT Temp#
Out3$ = ""
IF Temp# >= False THEN
    Digits = False
    DO
        IF 2 ^ (Digits + 1) > Temp# THEN
            EXIT DO
        END IF
        Digits = Digits + 1
    LOOP
    FOR Power = Digits TO 0 STEP -1
        IF Temp# - 2 ^ Power >= False THEN
            Temp# = Temp# - 2 ^ Power
            Out3$ = Out3$ + "1"
        ELSE
            Out3$ = Out3$ + "0"
        END IF
    NEXT
END IF
PRINT Out3$
END

Answer 2

当您想将整数值显示为二进制时，对我来说将它存储在字符串变量中似乎是合乎逻辑的，因为它仅用于显示。所以我不太确定你想在这里做什么。
也许您正在寻找LTRIM$这样的输出，11010而不是1 1 0 1 0?

您可以将其存储在一个整数值中，如下面的代码所示。但是，尽管整数值看起来与字符串变量相同，但实际上是完全不同的值。

CLS
INPUT "Type a decimal number:", N
S$ = ""
I = 0
P = 1
WHILE (N <> 0)
  ' get right most bit and shift right
  E = N AND 1
  N = INT(N / 2) ' bit shift right
  ' format for dsplay
  S$ = LTRIM$(STR$(E)) + S$
  I = I + (E * P)
  P = P * 10
WEND
PRINT "Binary as string="; S$
PRINT "Binary as int="; I
END