Question

pascal高精度乘法

速度速度，在线等
网上全互相抄的我受不了了
高手速来
急死我了
别用指针和过程
那些只知道从网上抄的垃圾给我滚
还有那个用c++回答的呆子看好了，是pascal，只要pascal

Answer 1

基本算法里有：
http://wenku.baidu.com/view/298e8a4769eae009581bec87.html

Answer 2

program gjcf;
const
n=100;
var
stra,strb:string;
lena,lenb,i,j,jw,x,y,t:integer;
a,b,c:array[1..n] of integer;
begin
readln(stra);
readln(strb);
lena:=length(stra);
lenb:=length(strb);
for i:=1 to lena do a[i]:=ord(stra[lena-i+1])-ord('0');
for i:=1 to lenb do b[i]:=ord(strb[lenb-i+1])-ord('0');
for i:=1 to lenb do
for j:=1 to lena do
begin
x:=a[j]*b[i];
jw:=x div 10;
y:=x mod 10;
t:=j+i-1;
c[t]:=c[t]+y;
c[t+1]:=c[t+1]+(c[t] div 10)+jw;
c[t]:=c[t] mod 10;
end;
j:=t+1;
while c[j]=0 do j:=j-1;
for i:=j downto 1 do write(c[i]);
writeln
end.