主题:高精度加法怎么做
CLS
INPUT a$, b$
la = LEN(a$): lb = LEN(b$)
IF la < lb THEN SWAP a$, b$: SWAP la, lb
DIM a$(la), b$(la), c(la + 1)
FOR i = 1 TO la
a$(i) = MID$(a$, i, 1)
NEXT i
FOR i = 1 TO lb
b$(i) = MID$(b$, i, 1)
NEXT i
b$(1) = SPACE$(la - lb) + b$(1)
FOR i = 1 TO la
c(i) = VAL(MID$(b$(i), i, 1)) + VAL(MID$(b$(i), i, 1))
NEXT i
END
FOR i = la TO 1 STEP -1
c(i - 1) = c(i - 1) + c(i) / 10
c(i) = c(i) MOD 10
NEXT i
FOR i = 1 TO la
PRINT c(i);
NEXT i
我这程序哪有错??请教一下
INPUT a$, b$
la = LEN(a$): lb = LEN(b$)
IF la < lb THEN SWAP a$, b$: SWAP la, lb
DIM a$(la), b$(la), c(la + 1)
FOR i = 1 TO la
a$(i) = MID$(a$, i, 1)
NEXT i
FOR i = 1 TO lb
b$(i) = MID$(b$, i, 1)
NEXT i
b$(1) = SPACE$(la - lb) + b$(1)
FOR i = 1 TO la
c(i) = VAL(MID$(b$(i), i, 1)) + VAL(MID$(b$(i), i, 1))
NEXT i
END
FOR i = la TO 1 STEP -1
c(i - 1) = c(i - 1) + c(i) / 10
c(i) = c(i) MOD 10
NEXT i
FOR i = 1 TO la
PRINT c(i);
NEXT i
我这程序哪有错??请教一下