ГОСТ 3410 / Работа с длинными числами

#include <vector> // 
std::vector<int> intVector; // declaration sample

void __fastcall TForm1::InPut (AnsiString AStr)
{
AnsiString BufStr;
int OsnLen=(IntToStr(Osn)).Length()-1;
const int ASize=AStr.Length();
int A[ASize];
 
for (int i=1; i<=OsnLen; i++) BufStr=AStr[i];
A[1]=StrToInt(BufStr);
 
}

int t[];
t = new int[size];

        for (int i=1; i<=A[0]; i++)
                {
                __int64 BufInt64;
                BufInt64= A[i]*n+C1[i];
                C1[i+1] =  (BufInt64 / Osn);
                AnsiString BufStr=IntToStr(C1[i]);
                C1[i] = BufInt64 % Osn;
                Form1->MulLog->Lines->Add("i="+IntToStr(i)+" A[i]="+A[i]+" A[i]*n="+IntToStr(A[i]*n)+" BufInt64="+IntToStr(BufInt64)+" C1[i]="+BufStr+" C1[i]="+C1[i]+" перенос="+C1[i+1]);
                }

        for (int i=1; i<=A1[0]; i++)
                {
                __int64 BufInt64;
                [B]BufInt64= (__int64) ((__int64)A1[i]*(__int64)n)+C1[i];[/B]
                C1[i+1] =  (BufInt64 / Osn);
                AnsiString BufStr=IntToStr(C1[i]);
                C1[i] = BufInt64 % Osn;
                Form1->MulLog->Lines->Add("i="+IntToStr(i)+" A1[i]="+A1[i]+" A1[i]*n="+IntToStr(A1[i]*n)+" BufInt64="+IntToStr(BufInt64)+" C1[i]="+BufStr+" C1[i]="+C1[i]+" перенос="+C1[i+1]);
                }

for (int i=1; i<=A1[0]; i++)
                {
                __int64 BufInt64;
                BufInt64= (__int64) ((__int64)A1[i]*(__int64)n)+C1[i];
                C1[i+1] =  (BufInt64 / Osn);
                AnsiString BufStr=IntToStr(C1[i]);
                C1[i] = BufInt64 % Osn;
                Form1->MulLog->Lines->Add("i="+IntToStr(i)+" A1[i]="+A1[i]+" A1[i]*n="+IntToStr(A1[i]*n)+" BufInt64="+IntToStr(BufInt64)+" C1[i]="+BufStr+" C1[i]="+C1[i]+" перенос="+C1[i+1]);// надо, чтобы эта строка была подченена строке Операция Умножена
                }

public:     // User declarations
         int CountBlock;
         int X[100],Y[100],Z[100],Ost[100];
         AnsiString NumStrIn;
 
 
        __fastcall TForm1(TComponent* Owner);
        void __fastcall TForm1::InPut (AnsiString NumStr, int Num[]);
        AnsiString __fastcall TForm1::OutPut (int Num[]);
        void __fastcall TForm1::Sum (int A[],int B[],int C[]);
        int __fastcall TForm1::Compare (int A[],int B[]);
        void __fastcall TForm1::Mul (int  A1[],int n, int C1[]);
        void __fastcall TForm1::Sub (int A[], int B[], int sp);
        void __fastcall TForm1::Div ( int A[], int B[], int Res[], int Ost[]);
        int __fastcall TForm1::FindBin(int Ost[],  int B[],  int sp);
        void __fastcall TForm1::MakeDel(int A[],int B[],int Res[],int Ost[]);
        void __fastcall TForm1::MakeDiv(int A[], int B[], int Res[],int Ost []);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
        int Osn=10000, OsnLen=IntToStr(Osn).Length()-1;

//--------Сумма
void __fastcall TForm1::Sum (int A[],int B[],int C[])
{
Form1->SumLog->Clear();
int CLen;
for (int i=0; i<=CountBlock; i++) C[i]=0;
if (A[0] > B[0]) CLen=A[0];
else CLen=B[0];
Form1->SumLog->Lines->Add("A="+OutPut(A)+" кол-во блоков="+A[0]);
Form1->SumLog->Lines->Add("B="+OutPut(B)+" кол-во блоков="+B[0]);
for (int i=1; i<=CLen; i++)
        {
        C[i+1]= (C[i] + A[i] + B[i]) / Osn;
        int BufInt=C[i];
        C[i]= (C[i] + A[i] + B[i]) % Osn;
        Form1->SumLog->Lines->Add("i="+IntToStr(i)+" A[i]="+IntToStr(A[i])+" B[i]="+IntToStr(B[i])+" BufInt="+IntToStr(BufInt)+" C[i]="+C[i]+" перенос="+C[i+1]);
        }
if (C[CLen+1]==0) C[0]=CLen;
else C[0]=CLen+1;
Form1->SumLog->Lines->Add("C="+OutPut(C)+" кол-во блоков="+C[0]);
Form1->MulLog->Lines->Add("A="+OutPut(A)+" кол-во блоков="+A[0]+" экспорт из Sum");
Form1->MulLog->Lines->Add("B="+OutPut(B)+" кол-во блоков="+B[0]+" экспорт из Sum");
}

//---Умножение длинных чисел---
void __fastcall TForm1::MulLong (int AML [], int BML[],int CML[])  // LM - LongMul
{
int BufMas1[100], BufMas2[100];
for (int j=0; j<=100; j++)
        {
        BufMas1[j]=0;
        BufMas2[j]=0;
        CML[j]=0;
        }
CML[0]=1;
 
Form1->MulLog->Lines->Add("Умножение длинных чисел");
Form1->MulLog->Lines->Add("Основание="+IntToStr(Osn)+". Размер блоков ="+IntToStr(OsnLen));
Form1->MulLog->Lines->Add("AML="+OutPut(AML)+" кол-во блоков="+AML[0]);
Form1->MulLog->Lines->Add("BML="+OutPut(BML)+" кол-во блоков="+BML[0]);
Form1->MulLog->Lines->Add("CML="+OutPut(CML)+" кол-во блоков="+CML[0]);
 
for (int i=1; i<=BML[0]; i++)
        {
        for (int j=0; j<=BufMas2[0]; j++) BufMas2[j]=0;
        Mul(AML,BML[i],BufMas1);
         Form1->MulLog->Lines->Add("i="+IntToStr(i)+" BufMas1="+OutPut(AML)+" * "+OutPut(BML)+" = " +OutPut(BufMas1)+" кол-во блоков="+BufMas1[0]);
         for (int j=0; j<=4; j++) Form1->MulLog->Lines->Add(" j="+IntToStr(j)+" BufMas1[j]="+BufMas1[j]);
        Sum(CML,BufMas1,BufMas2);
         for (int j=0; j<=4; j++) Form1->MulLog->Lines->Add(" j="+IntToStr(j)+" BufMas1[j]="+BufMas1[j]+" после сложения");
         Form1->MulLog->Lines->Add("i="+IntToStr(i)+" CML="+OutPut(CML)+" + "+OutPut(BufMas1)+"="+OutPut(BufMas2)+" кол-во блоков="+BufMas2[0]);
        for (int j=0; j<=BufMas2[0]; j++) CML[j]=BufMas2[j];
 
        Form1->MulLog->Lines->Add("i="+IntToStr(i)+" CML="+OutPut(CML));
        }
}