[初中教育]第七讲高精度运算.pptVIP

write(a[la-1])； {输出结果} for i←la-2 downto 0 do write(a[i] div 1000，(a[i]div 100)mod 10，(a[i]div 10)mod 10，a[i]mod 10)；??? 优化算法的实现 ⑴整数数组+整数数组（a←a+n，a,n为整数数组） 进行加法处理时，先设置一个加法进位标志 t，并将 t 的初值设为 0。当两数相加时，从低位到高位，各位数字分别相加，如果相加后某个单元中的数大于 10000，则将该单元中的数减去10000，并将进位标志 t设为 1，当对下一单元进行相加时，还要再加上前一个单元的进位标志 t。不断重复，直到最高位为止。 t:=0;{t为进位}?for j:=0 to la+ln do {从低位开始做加法}? begin?? s:=a[j]+n[j]+t;?? a[j]:=s mod 10000;{相加后的结果，如果大于10000，则减去10000}?? t:=s div 10000; {相加后的进位}? end; ⑵整数数组-整数数组（a←a-n，a,n为整数数组） ??? 做减法运算要注意负数的处理，如果减数大于被减数，则交换a、n的值。并增加一个判断a、n大小的函数f，当打印计算结果时，如果f值为false，则在数值前面先输出一个负号。程序实现如下： function f:boolean;{判断a、n的大小，返回布尔型变量}varfc:integer;begin?fc:=max; f:=true;?while (a[fc]=n[fc]) and (fc0) do?? dec(fc);?if a[fc]n[fc] then f:=false;end; 借位处理，做减法运算时，要先判断是否需要借位，如果需要借位，从上一位借过一个10000，上一位的数减去1，处理完之后再相减。 ? g:=0;?? for i:=0 to max do???? if a[i]=n[i]+g then????? begin?????? a[i]:=a[i]-n[i]-g;?????? g:=0????? end????? else begin???????????? a[i]:=10000+a[i]-n[i]-g;{借位处理}???????????? g:=1;?????????? end;? ? ⑶两个整数数组相乘（a←a*n， a和n为为整数数组） ???? 我们按照由高位到底位的顺序，将a数组的每一个元素与n相乘。当计算到a[j]*n时，根据乘法规则，a[j-1]， …，a[0]不变，a[j]为原a[j]与n[0]的乘积，a[j+k]加上a[j]*n[k]的乘积（k=ln-1，ln-2， …，1），然后按照由底位到高位的顺序处理进位。最后，如果a[la-1]*n有进位，则乘积a的有效位数为la+ln；否则a的有效位数为la+ln-1。 for j←la-1 downto 0 do ???? begin {d←a*n，把d作为结果数组} for k←ln-1 downto 1 do inc(d[j+k]，a[j]*n[k])；{错位累加} d[j] ←a[j]*n[0] ????? End; a←d； g←0； {进位初始化} for j←0 to la+ln-1 do begin {按照由底位到高位的顺序处理进位} inc(g，a[j])； {计算经过进位后的第j位} a[j] ←g mod 10000； {将第j位规整为10000进制数} g←g div 10000； {计算进位} end；{for} if (a[la+ln-1]0) {修改有效位数} then inc(la，ln) else inc(la，ln-1)； [4]整数数组除以整数（a←a/i，a为整数数组，i为整数） ??? 我们按照由高位到底位的顺序，逐位相除。在除到第j位时，该位在接受了来自j+1位的余数（a[j]←a[j]+(j+1位相除的余数)*10000）后与i相除。如果最高位为0（a[la-1]=0），则a的长度减1。 g←0； {余数初始化} for j←la-1 downto 0 do begin{按照由