回 帖 发 新 帖 刷新版面

主题:[讨论]谁有 完整没错的高精度乘法 程序 +60分


谁有 [u][b]完整没错[/b][/u]的[b]高精度乘法[/b] 程序 [u]+60分[/u]

[em1][em2][em3][em4][em5][em6][em7][em8][em9][em10][em11][em12][em13]

回复列表 (共5个回复)

沙发

我有一个高精度乘法的程序,但是这只是两个多位数相乘,你要不要?

板凳

把两个乘数,分成几个段落来,分别运算就是了。

楼主你具体举个列子嘛,给两个数字

3 楼

请参照:
[url=http://www.programfan.com/club/showbbs.asp?id=99260]超长整数运算[/url]

4 楼

数字N的M次方的高精度原程序
或是两个数相乘的高精度原程序
                         谢谢

5 楼

b$="2"
a$=b$
for i%=1 to 200
    a$=X$(a$,b$)
    print a$
next
end

function X$(a$,b$)
  a$=ltrim$(rtrim$(a$))
  b$=ltrim$(rtrim$(b$)) 
  la%=len(a$)
  lb%=len(b$)
  s$=space$(la%+lb%)
  for i%=la% to 1 step -1
    for j%=lb% to 1 step -1
      z%=val(mid$(a$,i%,1))*val(mid$(b$,j%,1))
      for k%=i%+j% to 1 step -1
        z%=z%+val(mid$(s$,k%,1))
        mid$(s$,k%,1)=chr$((z% mod 10)+48)
        z%=z%\10
        if z%=0 then exit for
  next k%,j%,i%
  X$=ltrim$(s$)
end function

2^200 = 3213876088517980551083924184682325205044405987565585670602752

我来回复

您尚未登录,请登录后再回复。点此登录或注册