Pascal高精度运算(加减法).pptVIP

高精度算法入门 高精度运算是指参与运算有数或运算结果远远超过计算机语言中能够表示的数的范围的特殊运算。 例如:编程解决求A+B的值,其中A,B的值=1040 ; 高精度运算的思想就是运用字符串和一维数组的方式模拟运算 口诀就是:用字符串读入数据，转化数据类型,用数组存储数据,并加以运算： 上机练习： 输入两个正的实数a,b，输出a+b的值。 输入：两行，第一行a，第二行b，a和b的长度均小于1000位。 输出：一行，a+b的值。 样例： 输入： 4.5 2.3 输出： 6.8 * 第一讲:高精度运算加减法篇 类型　　　　　数值范围　　　　 占字节数 Byte 0 .. 255 1 Word 0..65535 2 Shortint -128 .. 127 1 Integer -32768..32767; 2 Longint -2147483648 .. 2147483647 4 Longword 0..4294967295 4 Int64 -9223372036854775808 ..  9223372036854775807 8 QWord 0 .. 18446744073709551615 8 //在竞赛学会的最新规定中由于int64在文件操作的不稳定性已经不推荐用了;而且当数据超过1020以后我们就必须要用到高精度运算 高精度运算涉及到的问题： 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: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[3] a[2] a[1] ３、加法运算，注意进位处理。 把计算结果存到数组c中：c：array[1..241] of integer; 先计算。 …….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]); onst maxn=240; {c=a+b,先加，然后再