《高精度计算ok》word版

《《高精度计算ok》word版》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、高精度计算利用计算机进行数值计算，有时会遇到这样的问题，有些计算要求精度高，希望计算的数的位数可达几十位甚至几百位，虽然计算机的计算精度也算较高了，但因受到硬件条件的限制，往往达不到实际问题所要求的精度，我们可以利用高精度计算的方法来实现更高精度计算的目的。高精度计算中需要处理好以下几个问题：（1）数据的接收方法和存贮方法当输入的数很长时，可采用字符串方式输入，这样可输入数字很长的数，利用字符串函数和操作运算，将每一位数取出，存入数组中；另一种方法是直接用循环数组方法输入数据。（2）计算结果位数的确定利用对数函数len=trunc(ln(x)/ln

2、(10))+1,定义数组a[len];（3）进位、借位的处理加法进位：a[i]:=a[i]+b[i];a[i+1]:=a[i+1]+a[i]div10;a[i]:=a[i]mod10;减法借位：ifa[i]

3、integer;K,len1,len2,len,I,j:integerBeginReadln(str1);Readln(str2);Len1:=length(str1);len2:=length(str2);Fori:=1tolen1doa[len1+1-i]:=ord(str1[i])-ord(‘0’);Fori:=1tolen2dob[len2+1-i]:=ord(str2[i])-ord(‘0’);Iflen1

4、a[i+1]:=a[i+1]+a[i]div10;a[i]:=a[i]mod10;end;ifa[len+1]<>0theninc(len);fori:=lendownto1dowriteln(a[i]);end;二、高精度减法程序Fori:=1tolendoBeginifa[i]1)dodec(len);fori:=lendownto1dowriteln(a[i]);

5、end;一、高精度乘法高精度乘法可以分两个方面计论，一方面是多精度与单精度乘法，另一方面是多精度与多精度乘法，（1）对于多精度与单精度乘法可以设b为整型数，a数组为多精度数。A[1]:=a[1]*b;Fori:=2tolendoBegina[i]:=a[i]*b;A[i]:=a[i]+a[i-1]div10;A[i-1]:=a[i-1]mod10;End;Whilea[len]>=10doBeginlen:=len+1;A[len]:=a[len-1]div10;A[len-1]:=a[len-1]mod10;End;（2）多精度与多精度乘法Pro

6、gramp4;Constn=100;Vara,b:array[1..n]ofinteger;C:array[1..2*n+1]ofinteger;Len1,len2,I,j,x,y,w:integer;BeginReadln(str1);readln(str2);Len1:=length(str1);len2:=length(str2);Fori:=1tolen1doa[len1+1-i]:=ord(str1[i])-ord(‘0’);Fori:=1tolen2dob[len2+1-i]:=ord(str2[i])-ord(‘0’);Fori:=1

7、tolen1doForj:=1tolen2doBeginx:=a[i]*b[j];Y:=xdiv10;z:=xmod10;w:=i+j-1;c[w]:=c[w]+z;c[w+1]:=c[w+1]+c[w]div10+y;c[w]:=c[w]mod10end;e:=len1+len2;whilec[e]=0thene:=e-1;fori:=edownto1dowrite(c[i]);end.当输入str1=123456789,str2=987654321时，结果是：121932631112635269四、加大进制的方法前面所介绍的各种方法都是以十进

8、制为基础的，当数很大时，为了加快速度，可以采用100或10000进制或更大的进制的方法。除了进制有所变化外，算法没有什么变