1-high-precision操作.pptVIP

高精度运算 2、高精度乘法 * * 由于待处理的数据超过了任何一种数据类型所能容纳的范围，因此必须采用数串形式输入，并将其转化为整数数组。该数组的每一个元素对应一位十进制数，由其下标顺序指明位序号。运算规则如同算术运算。由于高精度运算的结果可能使得数据长度发生增减，因此除需要用整数数组存储数据外，还需要用一个整数变量记录整数数组的元素个数，即数据的实际长度。 1、高精度加法 Str1=‘3210’ Str2=‘98765’ j 对位 相加 进位 以字符串形式输入加数和被加数 用整数数组来保存加数和被加数 ord(str1[i])-ord(0) ord(str2[i])-ord(0) var str1,str2:string; a,b:array[1..100] of integer; l1,l2,i,j,k:integer; begin readln(str1); readln(str2); l1:=length(str1);l2:=length(str2); if l1l2 then j:=l1 else j:=l2; k:=0; for i:=l1 downto 1 do begin k:=k+1; a[k]:=ord(str1[i])-ord(0); end; k:=0; for i:=l2 downto 1 do begin k:=k+1; b[k]:=ord(str2[i])-ord(0); end; for i:=1 to j do begin a[i]:=a[i]+b[i]; if a[i]=10 then begin a[i]:=（ ）; a[i+1]:=（ ）; end; end; if a[i+1]=0 then j:=j-1; for i:=j+1 downto 1 do write(a[i]); end. 处理进位 从低位到高位依次将各位数相加 用字符串输入加数和被加数 a[i]-10 a[i+1]+1 用整数数组来存放加数 用整数数组来存放被加数 从高位到低位输出 计算50！的精确值. 解题思路： 50!是个很大的值，大约在1060-1070左右，显然用PASCAL的实数和整数都是不能存储的。 可以用一个整数数组来表示这个大数，数组中每个元素只存放一个数字。下图所示的是11！数组a中的存储方法。 … ? 0 0 8 6 1 9 9 1 2 99 100 3 const max=100; n=50; var a:array[1..max] of integer; i,j,k,x:integer; begin k:=max; a[k]:=1; {初值为1} for i:=2 to n do{求i！} begin x:=0; {来自低位的进位} for j:=max downto k do begin x:=x+a[j]*i; a[j]:=（ ）; x:=（ ）; end; while x0 do {处理最后一位进位} begin （ ）; a[k]:=x mod 10; x:=x div 10; end end; for i:=（ ）do write(a[i]:1) end. x mod