高精度运算2剖析

1、高精度除法 一、高精度除以单精度，求出商和余数高精度除以单精度，求出商和余数 书P141 采用按位相除法；从高位开始除，高位存在第一单元，同样商也是如此存，所以输出不需要反向。二、高精度除以高精度除法一求出商和余数求出商和余数若要避免乘法:可以用减法代替除法运算。不断比较数组a,b大小，如果ab，那么商数组c累加1,然后执行高精度减法a-b,如此循环直到ab时，让b增大10倍，进行优化。下面的程序是指高位存在数组最后一单元，从低位开始减。定义函数f，用来比较a和b的大小Function f(a,b:atype):boolean;Var i:integer;Begin f:=true; i:=n

2、; While (ai=bi) and (i=1) do dec(i); If (ai=1) then f:=false;End;定义一个减法过程，因为需要不断执行减法，从低位开始相减Procedure sub; var i:integer;Begin t:=0;For i:=1 to n do if aibi+t then begin ai:=ai-bi-t; t:=0; end 若曾借位给低位则要减1Else begin ai:=ai+10-bi-t; t:=1; end; 向高位借一位，b加10End; 相除，除数扩大倍数，变量j用来确定商的位数procedure work; var i

3、,j:integer; begin j:=0; while f(a,b) do begin j:=j+1; for i:=Lb downto 1 do bi+1:=bi; b1:=0; Lb:=Lb+1; end; for I:=2 to Lb do bi-1:=bi; bLb:=0;Lb:=Lb-1; lc:=j;过程接上，循环执行减法while j0 do begin while f(a,b) do begin cj:=cj+1; sub;每减一次每减一次c数组加数组加1，直到，直到ai0 do begin for i:=n downto 1 do ai+1:=ai; a1:=0;Whil

4、e (f(a,b)=false) and (E0) doBegin write(0); dec(E); 余数扩大10倍；End;接上i:=0;While f(a,b) and E0 do begin sub; inc(i);End; write(i); Dec(E);End;例：n/m的精确值（n,m为一般整数）A0:=n; d0:=n div m;X0:=n mod m;(保存余数)Write(d0,.);For t:=1 to e do (e表示精确的位数)Begin if (t1) and (xt-1=0) then exit; at:=xt-1*10； dt:=at div m;write(dt); Xt:=at mod m;End;判断循环小数 如果需要判断循环小数，那么关键点在于判断是否余数出现重复。 在每次