除数and 被除数全部都是高精度的···还要取余~~这个给我看的脑袋这个疼啊~~~~~
不看应该没多发问题吧···

我想NOIP组委会不会出那么BT的题吧···

我们今天出了一道高精除单精的题 是第一题

高精度除以单的简单 高精度除以高精度我就晕死了

procedure highdevide(a,b:hp; var c,d:hp); //高精度除法 高精度/高精度 var i,len:integer; begin fillchar(c,sizeof(c),0); fillchar(d,sizeof(d),0); len:=a[0];d[0]:=1; for i:=len downto 1 do begin multiply(d,10,d); d[1]:=a[i]; while(compare(d,b)>=0) do {即d>=b} begin Subtract(d,b,d); inc(c[i]); end; end; while(len>1)and(c.s[len]=0) do dec(len); c.len:=len; end; hp为数组定义 type hp:array[1..max] of integer; a[0],b[0],c[0],d[0]为数组的长度 再在主程序里打出来 如：for i:=x[0] downto 1 do write(x[i]); write('.'); for i:=1 to y[0] do write(y[i]); writeln; x为商的整数部分，y为商的小数部分。 var x,y:hp;