巧用数组实现长整数的精确计算(1)

《巧用数组实现长整数的精确计算(1)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、巧用数组实现长整数的精确计算(1)摘要：本文阐述了利用数组实现长整数的算法关键词：数组算法VBAbstract：UsearraytorealizetheprecisecalculateoflongtegerKeyeticVB1、前言我们都知道，计算机的一个最重要的功能就是进行科学计算。利用一些标准的数学函数和运算符号可以进行任何复杂的数学运算，数学运算对计算机来说当然也是十分轻松的事情。但由于计算机内存空间的限制等原因，计算机在计算很大的数据时，往往是用科学记数法表示。比如在VB6.0和其他的一些高级编程语言中，计算机所能处理的长整数的范围是从-2,147,483,648到2,147,483

2、,647。也就是说超出这个范围的整数计算机就不能处理甚至不能识别了，那时计算机就会把数据转换为科学记数法后再进行处理，比如1.398865E19，它表示1.398865乘以10的19次方。假如我们需要知道两个很大的整数相乘的精确结果呢？看起来是很难实现，因为计算机不支持很长的位数计算。然而，我们只要愿意去做，拿一张纸和一枝笔一步一步地进行人工计算，最后总能得到精确结果.我们能不能把我们人工计算的方法告诉计算机，让计算机来完成这些计算工作呢？答案是肯定的。我们可以找出一个算法，让计算机来模拟我们人工计算的方式进行计算，并且也不会超出计算机的整数计算范围。本文就是通过对人工计算步骤的分析和模拟，

3、最后找出一个算法，用高级语言实现长整数的精确计算。2、人工计算步骤的分析和模拟首先我们来分析一下人工进行乘法计算的过程。例如：347×78=27066a347b×78c12776c22429c27066为了便于说明，我们用a表示被乘数，用b表示乘数，用c表示结果。并且把个位数定义成第一位，十位数定义成第二位，依次类推。源程序如下：Dima(),b(),c()AsByte'定义输入和输出数组SubMain()ts="整数乘法"xx=InputBox("请输入被乘数：",ts)Ifxx=""ThenEndyy=InputBox("请输入乘数",ts)Ifyy=""ThenEnda1=Len(xx

4、)'取xx的位数b1=Len(yy)'取yy的位数c1=a1b1'确定结果的最大位数ReDima(a1),b(b1),c(c1)'重定义数组Fori=1Toaa(i)=Mid(xx,a1-i1,1)'给数组a的每一位赋值IfNotIsNumeric(a(i))Then'检查输入的合法性MsgBox"被乘数输入错误",,tsEndEndIfNextiFori=1Tob1b(i)=Mid(yy,b1-i1,1)'给数组b的每一位赋值IfNotIsNumeric(b(i))Then'检查输入的合法性MsgBox"乘数输入错误",,tsEndEndIfNextiFori=1Toc1'结果数组c初始化

5、c(i)=0NextiFori=1Tob1'取b中的每一位Forj=1Toa1'取a中的每一位c(ji-1)=c(ji-1)b(i)*a(j)'相乘结果累加到c中的相应位zz=c(ji-1)k=0DoWhilezz