您所在位置：主题：高精度计算的问题
li010450
[专家分：70] 发布于 2005-07-18 18:23:00
高精度乘法我按照书上的运行，但有问题，望各位高手指教。
程序：
CLS
INPUT a$, b$
la = LEN(a$)
lb = LEN(b$)
lc = la + lb
DIM a(la), b(lb), c(lc)
FOR i = 1 TO la
FOR j = 1 TO lb
x = a(i) * b(j): w = i + j - 1
c(w) = c(w) + x MOD 10
c(w + 1) = c(w + 1) + c(w) \ 10 + x \ 10
c(w) = c(w) MOD 10
NEXT
NEXT
PRINT a$; "*"; b$; "="
WHILE c(lc) = 0
lc = lc - 1
WEND
FOR i = lc TO 1 STEP -1
PRINT USING "#"; c(i);
NEXT
PRINT
END
[em18][em18][em18][em18]
程序：
CLS
INPUT a$, b$
la = LEN(a$)
lb = LEN(b$)
lc = la + lb
DIM a(la), b(lb), c(lc)
FOR i = 1 TO la
FOR j = 1 TO lb
x = a(i) * b(j): w = i + j - 1
c(w) = c(w) + x MOD 10
c(w + 1) = c(w + 1) + c(w) \ 10 + x \ 10
c(w) = c(w) MOD 10
NEXT
NEXT
PRINT a$; "*"; b$; "="
WHILE c(lc) = 0
lc = lc - 1
WEND
FOR i = lc TO 1 STEP -1
PRINT USING "#"; c(i);
NEXT
END
[em18][em18][em18][em18]
