Question

高精度乘法计算程序(QBASIC)

要QBASIC的！

Answer 1

思路：1、以字符串形式输入；
2、定义数足，截取数字
3、转成数，进行乘法
4、依次输出
程序（仅供参考）：
input a$,b$
la=len(a$)
lb=len(b$)
lc=la+lb
dim a(la),b(lb),c(lc)
for i=1 to la
a(i)=val(mid$(a$,n-i,1))
next i
for i=1 to lb
b(i)=val(mid$(b$,lb+1-i,1))
next i
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 j,i
while c(lc)=0
lc=lc-1
wend
for i=lc to 1 step-1
print using"#";c(i);
next i
end