主题:[讨论]谁有 完整没错的高精度乘法 程序 +60分
dorremon1992
[专家分:870] 发布于 2006-08-24 17:29:00
谁有 [u][b]完整没错[/b][/u]的[b]高精度乘法[/b] 程序 [u]+60分[/u]
[em1][em2][em3][em4][em5][em6][em7][em8][em9][em10][em11][em12][em13]
回复列表 (共5个回复)
沙发
网络爱好者 [专家分:60] 发布于 2006-08-24 17:39:00
我有一个高精度乘法的程序,但是这只是两个多位数相乘,你要不要?
板凳
悟丑 [专家分:60] 发布于 2006-08-24 19:10:00
把两个乘数,分成几个段落来,分别运算就是了。
楼主你具体举个列子嘛,给两个数字
3 楼
moz [专家分:37620] 发布于 2006-08-24 23:18:00
请参照:
[url=http://www.programfan.com/club/showbbs.asp?id=99260]超长整数运算[/url]
4 楼
dorremon1992 [专家分:870] 发布于 2006-08-25 15:28:00
数字N的M次方的高精度原程序
或是两个数相乘的高精度原程序
谢谢
5 楼
moz [专家分:37620] 发布于 2006-08-25 21:17:00
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
我来回复