第1讲 高精度计算.ppt

* * 第一讲 高精度运算 编程实现：输入正整数a和b，输出a+b的值。 输入： 第一行：a 第二行：b 输出：a+b的和。 样例输入： 99 999 样例输出： 1098 引例： Pascal标准数据类型 1、整型 类型　　　　　数值范围　　　　 占字节数 Byte 0 .. 255 1 Shortint -128 .. 127 1 Word 0..65535 2 Integer -32768..32767; 2 Longint -2147483648 .. 2147483647 4 Longword 0..4294967295 4 Int64 -9223372036854775808 ..  9223372036854775807 8 QWord 0 .. 18446744073709551615 8 Qword:[0,1.8*1019] Int 64： [-9.0*1018, 9.0*1018] 2、实数 类型 范围 有效位数 占用字节 Real 2.9e-39..1.7e38　　　 11..12 6 Single 1.5E-45 .. 3.4E38 7-8 4 Double 5.0E-324 .. 1.7E308 15-16 8 Extended 1.9E-4951 .. 1.1E4932 19-20 10 Comp -2E64+1 .. 2E63-1 19-20 8 精确运算整数部分：小于1020 单精度运算 主要解决的问题： 1、高精度数的输入和保存。 2、运算时的进位与借位。 3、运算结果的保存。 4、运算结果的输出。 高精度整数运算： 加、减、乘 一、高精度加法运算：求a+b的值。 编程实现：输入正整数a和b，输出a+b的值。0a，b=10250 输入： 第一行：a 第二行：b 输出：a+b的和。 样例输入： 99 999 样例输出： 1098 1、高精度数的输入和保存。 字符串读入，数组保存。 Var s1 ,s2 :string; //最长255位 a,b,c:array[1..251] of integer; readln(s1); la=length(s1) {s1的长度} for i:= 1 to la do a[i]:=ord(s1[la+1-i])-48; {保存读入的高精度数，a[1]保存个位} 如：s1= 保存： 3 2 4 5 6 3 4 5 a[8] a[7] a[6] a[5] a[4] a[3] a[2] a[1] 输入要符合数字的输入规律：连续输入，中间无空格。 2、加法运算时的进位。 ………a[5] a[4] a[3] a[2] a[1] ……+..b[5] b[4] b[3] b[2] b[1] ………c[5] c[4] c[3] c[2] c[1] if lalb then len:=la else len:=lb; {len是s1和s2的较大位数} m:=0; {进位} for i:=1 to len do begin c[i]:=(a[i]+b[i]+m)