Pascal高精度除法（高除单）
高精度除法（高除单）过程中，这个k里面存的是不是余数？（a数组里存的是商我知道）proceduredivision(b:integer;vara:numbertype);...
高精度除法（高除单）过程中，这个k里面存的是不是余数？（a数组里存的是商我知道）
procedure division(b:integer;var a:numbertype);
var i,k:integer;
begin
k:=0;
for i:=l1 downto 1 do
begin
a[i]:=a[i]+k*10;
k:=a[i] mod b;
a[i]:=a[i] div b;
end;
while a[l1]=0 do dec(l1);
for i:=l1 downto 1 do write(a[i]);
end; 展开
procedure division(b:integer;var a:numbertype);
var i,k:integer;
begin
k:=0;
for i:=l1 downto 1 do
begin
a[i]:=a[i]+k*10;
k:=a[i] mod b;
a[i]:=a[i] div b;
end;
while a[l1]=0 do dec(l1);
for i:=l1 downto 1 do write(a[i]);
end; 展开
3个回答
展开全部
k是每次前面几个数除下来的余数,留到后几位,你的理解是正确的
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
