小数高精度乘法

函数模板代码：

const int size=1000;  //大数位数
void mult(char* A,char* B,char* ans)
{
    //A*B=ans
    int i,j,k;

    int fract;   //总小数个数
    int dot=-1;  //小数点位置
    for(k=0; A[k]!='\0'; k++)
        if(A[k]=='.')
            dot=k;
    int lena=k;
    if(dot==-1)
        fract=0;
    else
        fract=lena-dot-1;

    dot=-1;
    for(k=0; B[k]!='\0'; k++)
        if(B[k]=='.')
            dot=k;
    int lenb=k;
    if(dot==-1)
        fract+=0;
    else
        fract+=(lenb-dot-1);  //总小数个数

    int a[size+1]= {0};
    int b[size+1]= {0};
    int pa=0,pb=0;

    /*倒序*/

    for(i=lena-1; i>=0; i--)
    {
        if(A[i]=='.')
            continue;
        a[pa++]=A[i]-'0';
    }
    for(j=lenb-1; j>=0; j--)
    {
        if(B[j]=='.')     //暂时删除小数点
            continue;
        b[pb++]=B[j]-'0';
    }

    int c[2*size+1]= {0};
    int lenc;
    for(pb=0; pb<lenb; pb++)
    {
        int w=0;  //低位到高位的进位
        for(pa=0; pa<=lena; pa++) // = 为了处理最后的进位
        {
            int temp=a[pa]*b[pb]+w;
            w=temp/10;
            temp=(c[pa+pb]+=temp%10);
            c[lenc=pa+pb]=temp%10;
            w+=temp/10;
        }
    }

    /*倒序，得到没有小数点的ans*/

    for(pa=0,pb=lenc; pb>=0; pb--)
        ans[pa++]=c[pb]+'0';
    ans[pa]='\0';
    lena=pa;

    /*插入小数点*/

    bool flag=true; //标记是否需要删除小数末尾的0
    if(fract==0)   //小数位数为0，无需插入小数点
        flag=false;
    else if(fract<lena) //小数位数小于ans长度，在ans内部插入小数点
    {
        ans[lena+1]='\0';
        for(i=0,pa=lena; pa>0; pa--,i++)
        {
            if(i==fract)
            {
                ans[pa]='.';
                break;
            }
            else
                ans[pa]=ans[pa-1];
        }

    }
    else //小数位数大于等于ans长度，在ans前面恰当位置插入小数点
    {
        char temp[size+1];
        strcpy(temp,ans);
        ans[0]='0';
        ans[1]='.';
        for(int i=0; i<fract-lena; i++) //补充0
            ans[i+2]='0';
        for(j=i,pa=0; pa<lena; pa++)
            ans[j++]=temp[pa];
        ans[j]='\0';
    }

    /*删除ans小数末尾的0*/

    if(flag)
    {
        lena=strlen(ans);
        pa=lena-1;
        while(ans[pa]=='0')
            ans[pa--]='\0';
        if(ans[pa]=='.')   //小数全为0
            ans[pa--]='\0';
    }

    /*删除ans整数开头的0，但至少保留1个0*/

    pa=0;
    while(ans[pa]=='0')  //寻找ans开头第一个不为0的位置
        pa++;

    if(ans[pa]=='\0')  //没有小数
    {
        ans[0]='0';
        ans[1]='\0';
    }
    else  //有小数
    {
        for(i=0; ans[pa]!='\0'; i++,pa++)
            ans[i]=ans[pa];
        ans[i]='\0';
    }
    return;
}