高精度除法 C语言

iiiclude<stdio.h>

mclude<string.h>

char*Sub1(char*A,chai*B)

{

inta[100],b[100],c[100],d[100],cariy[100];

chaiC[100]=";

chaisti[100],*p;

mti,j,ii=stilen(A),sign;

fbr(i=0;i<=n-l;i++)

a[i]=A[i]-O；

fbi(j=O；j<strlen(A)-strlen(B)j++)

C[j]=O；

strcat(C.B);

fbr(i=0;i<=n-l;i++)

b[i]=C[i]-'O';

cany[n-l]=0:

fbr(i=n-l;i>=0;i~)

{

sign=0;

c[i]=a[i]-cany[i];

if(c[i]<b[i])sign=1；

d[i]=c[i]+10*sign-b[i];

if(i==0)break;

elseif(c[i]<b[i])cany[i-l]=1;

elsecany[i-l]=0;

wliile(i<=n-l)

{

str[j]=d[i]+O;j++;i++;

}

str[j]='\0：

p=str;returnp;

}

char*Sub(char*a,chai*b)

{

chai-c[100]=M-H,*q;

if(strlen(a)>stilen(b)||(stilen(a)==strlen(b)&&strcmp(a,b)=l)){

returnSubl(a.b);

}

elseif(strcmp(a5b)==O)

returnH0H;

elseif(strlen(a)<strlen(b)|(stilen(a)=stilen(b)&&strcix)p(a,b)=-l)){

strcat(c,Sub1(b,a));

q=c;

returnq;

}

}

char*StrAdd(char*A,chaiB)

{

intn=strlen(A);char*p;

mti=0;

if(A[i]==O)

{

A[i]=B;A[n+l]=30；

}

else

A[n]=B:

A[n+1]=\0：

p=A;returnp;

}

char*Dis(chai*A,char*B)

{

intij,k,top,a[1000];charC[1000],d[1000],*p;

if(strlen(A)<strlen(B)||(strlen(A)<stilen(B)&&sticmp(A,B)=:=-l))return©;

else

{

1=0;k=0;j=0;

while(i<strlen(B)-l)i++;

if(strcmp(A,B)=-1)i++;

foi(J=0j<=lJ-H-)

C[j]=A|j];

C[j]='\0：j=0;

while(sticmp(Sub(C,B)/，0H)>=0)

{

strcpy(C.Sub(C.B));

J卄；

}

a[k]=j;k++;

top=0;

d[top]=j+O;

while(i<=strlen(A)-l){

i++;

StrAdd(CA[i])；while(i<strlen(A)-l&&(strlen(C)<strlen(B)|

(stiien(C)==stilen(B)&&strcmp(C,B)=-l)))

i++;top++;d[top]=O;StrAdd(C,A[i]);

J=o；

while(sticmp(Sub(C,B)；，0n)>=0){

strcpy(C.Sub(C.B));

J卄；

}

a[k]=j;k++;top++;

d[top]=j+'0：

}

d[top++]='\0；

p=d;returnp;

}

}

hitmain()

{chaia