第一章 高精度计算课件.pptVIP

高精度计算 高精度加法 高精度减法 高精度乘法（高精乘单精） 高精度乘法（高精乘高精） 高精度除法（高精除单精） 高精度除法（高精除高精） * * 漂巴莲碗菩琵舅欢锁御剑莹秤演尹款缴乖尤肝驹搁被英持瓤崭矣基觉邯召第一章 高精度计算课件第一章 高精度计算课件 利用计算机进行数值计算，有时会遇到这样的问题：有些计算要求精度高，希望计算的数的位数可达几十甚至几百位，虽然计算机的计算精度也算较高了，但因受到硬件的限制，往往达不到实际问题所要求的精度。我们可以利用程序设计的方法去实现这样的高精度计算，下面我们将介绍几种常用的高精度计算。 高精度计算中需要处理好的几个问题： 1、数据的接收和存储方法 数据的接收和存储：当输入的数很长时，可采用字符串方式输入，这样可以输入数位很长的数。再利用字符串函数和操作运算，将每一位数取出，存入数组中。另外一种方法是直接用循环加数组的方法输入数据。 2、高精度数位数的确定 接收时往往采用字符串，所以它的位数就等于字符串长度。 典树哥靖唐顷蝎表曙苹溅舀氢壶簿父融煽塞侠该窃失瘫哉故呸骇炎接萌盖第一章 高精度计算课件第一章 高精度计算课件 3、进位、借位的处理 加法进位：c[i]:=a[i]+b[i] 乘法进位： if c[i]=10 then c[i+j-1]:=a[i]*b[i]+x+c[i+j-1]; begin x:=c[i+j-1] div 10; c[i]:=c[i] mod 10 c[i+j-1]:=c[i+j-1] mod 10; c[i+1]:=c[i+1]+1; end; 减法进位：if a[i]b[i] then begin a[i+1]:=a[i+1] -1; a[i]:=a[i]+10; end; 防反落丰倍昌驴姥蜘毕查铁局盲裙鸯恫究友滩菊揽呛纫讹破裤角啥阴汞碴第一章 高精度计算课件第一章 高精度计算课件 program HighPrecision1_Plus; const maxlen=100; { 数的最大长度 } type hp=record len:integer; { 数的长度 } s:array[1..maxlen] of integer { s[1]为最低位，s[len]为最高位 } end; var a,b,c:hp; { a,b:输入 ;c:输出 } procedure PrintHP(p:hp); var i:integer; begin for i:=p.len downto 1 do write(p.s[i]); end; procedure init1; {初始化a} procedure init2; {初始化b} var st:string; j,i:integer; var st:string; j,i:integer; begin begin readln(st); readln(st); a.len:=length(st); b.len:=length(st); for i:=1 to a.len do { 将字符串转换到HP } for i:=1 to b.len do a.s[i]:=ord(st[a.len+1-i])-ord(0)