会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前procedure multiply(a:hp;b:longint;var c:hp); |
var i,len:integer; |
begin |
fillchar(c,sizeof(c),0); |
len:=a[0]; |
for i:=1 to len do begin |
inc(c[i],a[i]*b); |
inc(c[i+1],(a[i]*b) div 10); |
c[i]:=c[i] mod 10; |
end; |
inc(len); |
while (c[len]>=10) do begin {处理最高位的进位} |
c[len+1]:=c[len] div 10; |
c[len]:=c[len] mod 10; |
inc(len); |
end; |
while (len>1) and (c[len]=0) do dec(len); {若不需进位则调整len} |
c[0]:=len; |
end;{multiply} |
