高精度除法

做除法时，每一次上商的值都在０～９，每次求得的余数连接以后的若干位得到新的被除数，继续做除法。因此，在做高精度除法时，要涉及到乘法运算和减法运算，还有移位处理。当然，为了程序简洁，可以避免高精度乘法，用0～9 次循环减法取代得到商的值。显然高精度除法相对是比较麻烦的,由于竞赛中很少涉及高精度数除以高精度数,所以,我们在这里只讨论一下高精度数除以普通整数的算法，采取的方法是按位相除法。

program exam4;
const max=200;
var a,c:array[1..max] of 0..9;
x,b:longint;
n1:string;
lena,i,j:integer;
begin
readln(n1);
lena:=length(n1);
for i:=1 to lena do a[i] := ord(n1[i]) - ord(’0’);
readln(b);
x:=0; {按位相除}
for i:=1 to lena do
begin                 //按位相除
c[i]:=(x*10+a[i]) div b;
x:=(x*10+a[i]) mod b;
end;
j:=1;
while (c[j]=0) and (j<lena) do inc(j); {去除高位的0}
for i:=j to lena do write(c[i]) ;
end.