pascal高精度乘法，在线等3
发布网友
发布时间：2023-10-20 14:18
共1个回答
热心网友
时间：2024-11-30 13:32
var
i,a,b:longint;
m:string;
begin
m:='';
for i:=1 to length(x) do
begin
a:=(ord(x[i])-ord('0'))*y+b;
b:=a div 10;
m:=chr(a mod 10+ord('0'))+m;
end;
if b>0 then
m:=chr(b-ord('0'))+m;
x:=m;
end；
其中x为字符串因数，y为长整型因数
