高精度运算.doc

高精度运算代码高精度乘法:计算的位数:iflenamod40thenslena:=(lenadiv4)+1elseslena:=lenadiv4;iflenbmod40thenslenb:=(lenbdiv4)+1elseslenb:=(lenbdiv4);1.四位一存，边存边删：k:=lb;fori:=1tolbdobeginifi=lbthenval(b1,b[i],l)elsebeginval(copy(b1,k-3,4),b[i],l);delete(b1,k-3,4);k:=k-4;end;end;2.c[i+j-1]:=c[