高精度乘法（字符串相乘）一、优缺点分析数组相乘的高精度乘法与普通的高精度乘法相比较，前者所能容纳的数位比后者多得多，但它的程序也比后者复杂。二、算法流程1）读入两个字符串s1，s2；procedureinit;vari:integer;beginfori:=1tondobegina[i]:=0;b[i]:=0;end;fori:=1to2*ndoc[i]:=0;writeln('input2numbers:');readln(s1);readln(s2);fg(s1,a,k1);fg(s2,b,k2);end;2）将这两个字符串转换为数值；procedurefg(s:string;vard:ar;varkk:integer);varss:string;l,code:integer;beginl:=length(s);kk:=n;repeatss:=copy(s,l-3,4);val(ss,d[kk],code);kk:=kk-1;s:=copy(s,1,l-4);l:=l-4;untill<0;kk:=kk+1;end;3）把两个数组a，b相乘，把乘积的后四位放进数组c里面，并把进位（即乘积除去后四位的其他部分）放在变量jw里面，接着把数组b截去后面四位，再与a相乘，然后把乘积与进位jw相加，放进数组c里面，重复上面的过程，直到乘完为止；procedurejisuan;vari,j,m:integer;x,y,z,jw:longint;begini:=n;k:=2*n;repeatx:=b[i];z:=0;m:=k;jw:=0;forj:=ndowntok1dobeginy:=a[j];z:=c[m];x:=x*y+z+jw;jw:=xdiv10000;c[m]:=xmod10000;m:=m-1;x:=b[i];end;ifjw<>0thenc[m]:=jwelsem:=m+1;i:=i-1;k:=k-1;untili
