Question

高精度除法 Pascal程序

高精度除法，输入两个正整数，求他们的商（作整除），两个数和他们的商都是高精度，不要用过程函数、

Answer 1

var a,c,p,d:array[1..1000]of shortint;
i,j,t,k,l:longint;
f,x:boolean;
fin,fout:text;
s:string;
function find:boolean;
begin
find:=false;
for i:=50 downto k+1 do
if (p[i]=p[k])and(d[i]=d[k]) then find:=true;
end;
procedure chu;
begin
t:=0;x:=true;l:=1000;i:=length(s);
while i>0 do begin
t:=t*10+a[i];
if t>=j then begin
c[l]:=t div j;
t:=t mod j;
l:=l-1;
end;
i:=i-1;
end;
k:=50;
if t=0 then exit;
c[l]:=100;l:=l-1;
for i:=1 to 50 do begin p[i]:=0; d[i]:=0; end;
while x and(k>0)and(t<>0) do begin
t:=t*10;
p[k]:=t mod j;
d[k]:=t div j;
t:=t mod j;
if find then x:=false;
k:=k-1;
end;
end;
begin
for i:=1 to 1000 do begin a[i]:=0; c[i]:=0;end;
assign(fin,'l4.in');
reset(fin);
assign(fout,'l4.out');
rewrite(fout);
readln(fin,s);
k:=length(s);
for i:=1 to length(s) do a[i]:=ord(s[length(s)-i+1])-48;
read(fin,j);
chu;
f:=true;i:=1000;
while f and (i>=l+1) do begin
if c[i]=100 then begin
write(fout,'.');
f:=false;
end;
if c[i]<>100 then write(fout,c[i]);
i:=i-1;
end;
if not f then for i:=50 downto k+1 do
write(fout,d[i]);
close(fin);
close(fout);
end.