Pascal高精度运算加法篇.pptVIP

高精度算法入门 高精度运算是指参与运算有数或运算结果远远超过计算机语言中能够表示的数的范围的特殊运算。 例如:编程解决求A+B的值,其中A,B的值=1040 ; 高精度运算的思想就是运用字符串和一维数组的方式模拟运算 口诀就是:用字符串读入数据，转化数据类型,用数组存储数据,并加以运算： 继续思考 a,b:array[1..maxn] of integer; 在前面的运算中我们定义数组中的数字为integer类型的值，但是我们知道integer的值数字可以表示-32000到+32000之间的数字，是否有些浪费？ * 高精度运算加法篇 类型　　　　　数值范围　　　　 占字节数 Byte 0 .. 255 1 Integer -32768..32767; 2 Longint -2147483648 .. 2147483647 4 当数据超过1010以后我们就必须要用到高精度运算 高精度运算涉及到的问题： 1、数据的输入。 2、数据的存储。 3、数据的运算：进位。 4、结果的输出：小数点的位置、处理多余的0等。 高精度加法 题目要求： 输入： 第一行：正整数a。 第二行：正整数b。已知：a和b（10240）。 输出：a＋b的值。 样例输入： 99 999 样例输出： 1098 １、数据的输入。 a和b（10240） 字符串输入： Var s1,s2:string; Readln(s1); Readln(s2); ２、数据的存储。 为了计算方便，采用数组存储。 Var a,b,c:array[1..240] of integer; 将字符串转换为数组存储。 用a存s1，b存s2。 A[1]存个位，便于以后计算和进位处理 len1:=length(s1); for i:= 1 to len1 do a[i]:=ord(s1[len1+1-i])-48; len2:=length(s2); for i:= 1 to len2 do b[i]:=ord(s2[len2+1-i])-48; S1=’3 4 5 2 3 4 5’ a[1] a[2] a[3]…… ３、加法运算，注意进位处理。 把计算结果存到数组c中： 先计算。 …….a[3] a[2] a[1] ……b[3] b[2] b[1] + ……c[3] c[2] c[1] if len1len2 then len:=len1 else len:=len2; for i:=1 to len do c[i]:=a[i]+b[i];{直接先计算} 计算后的c[i]可能=10,怎样处理？ 处理进位： for i:=1 to len do begin 　 c[i+1]:=c[i+1]+c[i] div 10; 　 c[i]:=c[i] mod 10; end; ４、结果的输出：数组c。 if c[len+1]0 then len:=len+1; for i:=len downto 1 do write(c[i]); begin readln(s1); readln(s2); j:=1; for i:=1 to 1000 do begin a[i]:=0;b[i]:=0;s[i]:=0; end; for i:=length(s1) downto 1 do begin val(copy(s1,i,1),a[j],c); j:=j+1; end; j:=1; for i:=length(s2) downto 1 do begin val(copy(s2,i,1),b[j],c); j:=j+1; end; if length(s1)length(s2) then max:=length(s1) else max:=length(s2); for i:=1 to max do begin s[i]:=s[i]+a[i]+b[i]; if s[i]=10 then begin s[i]:=s[i] mod 10; s[i+1]:=s[i+1]+1; end; end; if s[max+1]0 then max: