第一讲：高精度运算.pptVIP

* 第一讲:高精度运算 类型　　　　　数值范围　　　　 占字节数 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 高精度运算涉及到的问题： 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,先加，然后再处理进位} var s1,s2:string; a,b:array[1..maxn] of integer; c:array[1..maxn+1] of integer; len,len1,len2,k,j,i:integer; begin readln(s1); {输入} readln(s2); 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+