Question

高精度乘这样写对么？

const met=250;
var
i,j,la,lb,len:longint;
sa,sb:string;
m:longint;
a:array[1..met]of longint;
b:array[1..met]of longint;
c:array[1..met]of longint;
begin
readln(sa);
readln(sb);
la:=length(s1);
for i:=1 to la do a[i]:=ord(sa[la-i+1])-48;
lb:=length(s2);
for i:=1 to lb do b[i]:=ord(sb[lb-i+1])-48;
for i:=1 to la do
for j:=1 to lb do
c[i+j-1]:=c[i+j-1]+a[i]*b[j];
len:=la+lb;
for i:=1 to len do
begin
c[i+1]:=c[i+1]+c[i] div 10;
c[i]:=c[i] mod 10;
end;
while c[len]=0 do dec(len);
m:=c[len];
while m>0 do
begin
c[len]:=m mod 10;
m:=m div 10;
inc(len);
end;
for i:=len-1 downto 1 do
write(c[i]);
end.

Answer 1

基本是对的，有二处小错：

la:=length(s1);应为la:=length(sa);

lb:=length(s2);应为la:=length(sb);

以下是运行结果：