欢迎来到天天文库
浏览记录
ID:38480807
大小:27.50 KB
页数:3页
时间:2019-06-13
《高次乘方高精度计算》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、关于如何运用计算机进行高次高精运算,笔者研究后写出如下vbs代码,可计算较小整数的高次运算,输入底数与指数,1、2、千次方运算可以在3、4秒内完成,如果改用c++或其他编程语言编译成.exe或.com文件,会有更高的执行效率,因为vbs是便翻译边执行的,浪费了大量时间。复制如下代码到记事本中,保存时文件名改为*.vbs然后双击文件即可运行。a=InputBox("底数")b=InputBox("指数")Dimaa(100000)c=100000e=100main(b)d=cDod=d-1LoopUntilaa(d)>0Ord=1Forzz=1TodStep
2、1Ifaa(zz)>10Thenqwe=aa(zz)&qweElseIfaa(zz)>0Thenqwe="0"&aa(zz)&qweElseqwe="00"&qweEndIfEndIfNextMsgBox(qwe)Setws=WScript.CreateObject("WScript.Shell")Setfso=WScript.CreateObject("Scripting.FileSystemObject")Setfi=fso.CreateTextFile("结果.txt",True)fi.Write(qwe)fi.Closesubmain(x)‘递归主
3、程序'MsgBox("1")ifx=0Thenaa(1)=1elseifxmod2=0Thenmain(x/2)chengElsemain(x-1)achengendIfendIf'MsgBox("11")endSubSubcheng()‘平方过程,幂次加倍'MsgBox("cheng")dimbb(100000)Dimdd=cDod=d-1LoopUntilaa(d)>0Ord=1fori=1Todforj=1Todbb(i+j-1)=aa(i)*aa(j)+bb(i+j-1)nextNextfori=1tocifbb(i)>ethenbb(i+1)=b
4、b(i)e+bb(i+1)bb(i)=bb(i)modeendifNextfori=1tocaa(i)=bb(i)Next'MsgBox("1cheng")endSubsubacheng()‘乘以底数,幂次加一'MsgBox("acheng")Fori=1tocaa(i)=aa(i)*aNextfori=1tocifaa(i)>eThenaa(i+1)=aa(i)e+aa(i+1)aa(i)=aa(i)modeendIfNext'MsgBox("1acheng")endSub
此文档下载收益归作者所有