您所在位置：主题：这题我也不会 讲个方法 高精度乘法:(单精度与多精度)
yjxyangjiaxin
[专家分：50] 发布于 2008-07-06 10:59:00
帮我详细讲一下
高精度除法:
procedure division(b:longint;var a:numbertype);
var
i,k:integer;
begin
k:=0;
for i:=len downto 1 do
begin
a[i]:=a[i]+k*10;
k:=a[i] mod b;
a[i]:=a[i] div b;
end;
while a[len]=0 do
len:=len-1;
end;
高精度乘法:(单精度与多精度)
procedure multiply(b:longint;var a:numbertype);
var
i:integer;
begin
a[1]:=a[1]*b;
for i:=2 to len do
begin
a[i]:=a[i]*b;
a[i]:=a[i]+a[i-1] div 10;
a[i-1]:=a[i-1] mod 10;
end;
while a[len]>=10 do
begin
len:=len+1;
a[len]:=a[len-1] div 10;
a[len-1]:=a[len-1] mod 10;
end;
end;
