Схема основной части программы

Рис. 5.2. Схема основной части программы

Рис. 5.3. Схема вычисления функции x^a + y^b (Button4Click)

Рис. 5.4. Схема вычисления функции (x^a + y^b)/с (Button5Click)

Рис. 5.5. Схема вычисления факториала числа (fact)

Рис. 5.6. Схема преобразования целого числа из строки символов в массив целых чисел (getArr)

Рис. 5.7. Схема возведения целого числа в неотрицательную целую степень (power)

Рис. 5.8. Схема сложения двух чисел (summ)

Рис. 5.9. Схема вычитания двух чисел (razn)

Рис. 5.10. Схема сравнения двух чисел по модулю (sravn)

Рис. 5.11. Схема умножения двух чисел (proizv)

Рис. 5.12. Схема деления двух чисел (devCel)

Рис. 5.13. Схема вспомогательного алгоритма (podbor)

Листинг программы

Ermakov.cpp

//---------------------------------------------------------------------------

#include < vcl.h>

#pragma hdrstop

//---------------------------------------------------------------------------

USEFORM(" Unit1.cpp", Form1);

USEFORM(" Unit2.cpp", Form2);

//---------------------------------------------------------------------------

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

try

{

Application-> Initialize();

Application-> Title = " Действия с большими числами";

Application-> CreateForm(__classid(TForm1), & Form1);

Application-> CreateForm(__classid(TForm2), & Form2);

Application-> Run();

}

catch (Exception & exception)

{

Application-> ShowException(& exception);

}

catch (...)

{

try

{

throw Exception(" ");

}

catch (Exception & exception)

{

Application-> ShowException(& exception);

}

}

return 0;

}

//---------------------------------------------------------------------------

Unit 1.cpp

//---------------------------------------------------------------------------

#include < vcl.h>

#pragma hdrstop

#include " Unit1.h"

#include " Unit2.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource " *.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1:: TForm1(TComponent* Owner)

: TForm(Owner)

{

Panel1-> Hide();

}

//---------------------------------------------------------------------------

void show_hide1()

{

Form1-> Panel1-> Show();

Form1-> Button1-> Show();

Form1-> Button3-> Hide();

Form1-> Button4-> Hide();

Form1-> Button5-> Hide();

Form1-> Edit3-> Hide();

Form1-> Edit4-> Hide();

Form1-> Edit5-> Hide();

Form1-> Edit6-> Hide();

Form1-> Label2-> Show();

Form1-> Label6-> Hide();

Form1-> Label7-> Hide();

Form1-> Label8-> Hide();

Form1-> Label9-> Hide();

}

//---------------------------------------------------------------------------

void show_hide2()

{

Form1-> Panel1-> Show();

Form1-> Button1-> Hide();

Form1-> Button3-> Hide();

Form1-> Button4-> Hide();

Form1-> Button5-> Show();

Form1-> Edit2-> Show();

Form1-> Edit3-> Show();

Form1-> Edit4-> Show();

Form1-> Edit5-> Show();

Form1-> Edit6-> Show();

Form1-> Label6-> Show();

Form1-> Label7-> Show();

Form1-> Label8-> Show();

Form1-> Label9-> Show();

Form1-> Label2-> Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: MSummClick(TObject *Sender)

{

show_hide1();

Label1-> Caption=" Первое слагаемое";

Label2-> Caption=" Второе слагаемое";

Label3-> Caption=" Сумма: ";

Label4-> Caption=" Сложение";

Label4-> Left=230;

Edit2-> Show();

TForm1:: Button2Click(Sender);

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: MRaznClick(TObject *Sender)

{

show_hide1();

Label1-> Caption=" Уменьшаемое";

Label2-> Caption=" Вычитаемое";

Label3-> Caption=" Разность: ";

Label4-> Caption=" Вычитание";

Label4-> Left=230;

Edit2-> Show();

TForm1:: Button2Click(Sender);

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: MMultClick(TObject *Sender)

{

show_hide1();

Label1-> Caption=" Первый сомножитель";

Label2-> Caption=" Второй сомножитель";

Label3-> Caption=" Произведение: ";

Label4-> Caption=" Умножение";

Label4-> Left=230;

Edit2-> Show();

TForm1:: Button2Click(Sender);

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: MDevClick(TObject *Sender)

{

show_hide1();

Label1-> Caption=" Делимое";

Label2-> Caption=" Делитель";

Label3-> Caption=" Частное: ";

Label4-> Caption=" Деление";

Label4-> Left=260;

Edit2-> Show();

TForm1:: Button2Click(Sender);

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: MStepClick(TObject *Sender)

{

show_hide1();

Label1-> Caption=" Основание";

Label2-> Caption=" Показатель степени";

Label3-> Caption=" Результат: ";

Label4-> Caption=" Возведение в степень";

Label4-> Left=135;

Edit2-> Show();

TForm1:: Button2Click(Sender);

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: MFactClick(TObject *Sender)

{

show_hide1();

Button1-> Hide();

Button3-> Show();

Label1-> Caption=" Число";

Label2-> Hide();

Edit2-> Hide();

Label3-> Caption=" Факториал: ";

Label4-> Caption=" Факториал";

TForm1:: Button2Click(Sender);

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: MF1Click(TObject *Sender)

{

show_hide2();

Edit6-> Hide();

Label9-> Hide();

Button4-> Show();

Button5-> Hide();

Label1-> Caption=" Основание (x)";

Label2-> Caption=" Показатель степени (a)";

Label3-> Caption=" Результат: ";

Label4-> Caption=" Функция x^a+y^b";

Label6-> Caption=" Знак";

Label7-> Caption=" Основание (y)";

Label8-> Caption=" Показатель степени (b)";

Label4-> Left=168;

TForm1:: Button2Click(Sender);

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: MF2Click(TObject *Sender)

{

show_hide2();

Label1-> Caption=" Основание (x)";

Label2-> Caption=" Показатель степени (a)";

Label3-> Caption=" Результат: ";

Label4-> Caption=" Функция (x^a+y^b)/c";

Label6-> Caption=" Знак";

Label7-> Caption=" Основание (y)";

Label8-> Caption=" Показатель степени (b)";

Label9-> Caption=" Делитель (c)";

Label4-> Left=168;

TForm1:: Button2Click(Sender);

}

//---------------------------------------------------------------------------

int* razn(int c1[40], int c2[40]);

//---------------------------------------------------------------------------

void output(int c1[41]);

//---------------------------------------------------------------------------

int sravn(int c1[41], int c2[41]);

//---------------------------------------------------------------------------

AnsiString devOst(int c1[41], int c2[42]);

//---------------------------------------------------------------------------

int* getArr(char szN[41])

{

int k=0;

static int c[41];

int i;

for (i=0; i< 41; i++)

{

c[i]=0;

}

if (szN[0]=='-')

{

c[40]=1;

for (i=0; i< 40; i++)

{

szN[i]=szN[i+1];

}

}

else

{

c[40]=0;

}

while (szN[k])

{

k++;

}

int p=39;

for (i=k-1; i> =0; i--, p--)

{

c[p]=szN[i]-48;

}

return & c[0];

}

//---------------------------------------------------------------------------

int* summ(int c1[41], int c2[41])

{

static int summArr[41];

for (int i=0; i< 40; i++)

{

summArr[i]=0;

}

if (((c1[40]==1)& & (c2[40]==1))||((c1[40]==0)& & (c2[40]==0)))

{

for (int i=39; i> =0; i--)

{

summArr[i]+=c1[i]+c2[i];

if (summArr[i]> 9)

{

int m=summArr[i]%10;

summArr[i-1]+=summArr[i]/10;

summArr[i]=m;

}

}

int k=(c1[40]==c2[40]);

if ((c1[40]==1)& & k)

{

summArr[40]=1;

}

else

{

summArr[40]=0;

}

if (summArr[0]> 0)

{

ShowMessage(" Результат превышает допустимое значение.\nПопробуйте уменьшить исходные числа");

Form1-> Label5-> Caption=" ";

summArr[0]=15;

return & summArr[0];

}

}

else

{

if (c1[40]==0)

{

c2[40]=0;

int* p=razn(c1, c2);

for (int i=0; i< 41; i++, p++)

{

summArr[i]=*(p);

}

}

else

{

c1[40]=0;

int* p=razn(c2, c1);

for (int i=0; i< 41; i++, p++)

{

summArr[i]=*(p);

}

}

}

return & summArr[0];

}

//---------------------------------------------------------------------------

int* razn(int c1[41], int c2[41])

{

static int arr[41];

if (((c1[40]==1)& & (c2[40]==1))||((c1[40]==0)& & (c2[40]==0)))

{

int f=sravn(c1, c2);

int max=0;

int i;

if (f)

{

while (c1[max]==0)

{

max++;

}

}

else

{

while (c2[max]==0)

{

max++;

}

}

if (f)

{

for (int i=0; i< 40; i++)

{

arr[i]=c1[i]-c2[i];

}

if (c1[40]==1)

{

arr[40]=1;

}

else

{

arr[40]=0;

}

}

else

{

for (int i=0; i< 40; i++)

{

arr[i]=c2[i]-c1[i];

}

if (c1[40]==1)

{

arr[40]=0;

}

else

{

arr[40]=1;

}

}

for (i=40; i> =max; i--)

{

if (arr[i]< 0)

{

arr[i]+=10;

arr[i-1]-=1;

}

}

}

else

{

if (c1[40]==0)

{

c2[40]=0;

int* p=summ(c1, c2);

for(int i=0; i< 41; i++, p++)

{

arr[i]=*(p);

}

if (arr[0]==15)

{

return & arr[0];

}

}

else

{

c2[40]=1;

int* p=summ(c1, c2);

for(int i=0; i< 41; i++, p++)

{

arr[i]=*(p);

}

if (arr[0]==15)

{

return & arr[0];

}

}

}

return & arr[0];

}

//---------------------------------------------------------------------------

int* proizv(int c1[41], int c2[41])

{

int k1=0;

int i;

for (i=0;! (c1[i])& & (i< 41); i++)

{

k1++;

}

int k2=0;

for (i=0;! (c2[i])& & (i< 41); i++)

{

k2++;

}

int temp[41];

static int proizvArr[41];

for (i=0; i< 41; i++)

{

proizvArr[i]=0;

}

for (i=39; i> =k2; i--)

{

for (int s=0; s< 41; s++)

{

temp[s]=0;

}

int k=i;

for (int j=39; j> =k1; j--, k--)

{

temp[k]+=c2[i]*c1[j];

if (temp[k]> 9)

{

int m=temp[k]%10;

temp[k-1]+=temp[k]/10;

temp[k]=m;

}

}

int* p=summ(proizvArr, temp);

for (int y=0; y< 40; y++, p++)

{

proizvArr[y]=*(p);

}

if (proizvArr[0]==15)

{

Form1-> Label5-> Caption=" ";

return & proizvArr[0];

}

}

int g=(c1[40]==c2[40]);

if (g)

{

proizvArr[40]=0;

}

else

{

proizvArr[40]=1;

}

return & proizvArr[0];

}

//---------------------------------------------------------------------------

int* power(int s1[41], int s2[41])

{

static int powerArr[41];

int i;

int* p;

for (i=0; i< 41; i++)

{

powerArr[i]=0;

}

powerArr[39]=1;

int ed[41];

for (i=0; i< 41; i++)

{

ed[i]=0;

}

ed[39]=1;

int c2[41];

for (i=0; i< 41; i++)

{

c2[i]=s2[i];

}

int b=0;

for (i=0; i< 40; i++)

{

if (s1[i]==ed[i])

{

b++;

}

}

if ((b==40)& & (s1[40]==1))

{

if (((s2[39]%2)==0)||((s2[39]%2)==0))

{

powerArr[40]=0;

}

else

{

powerArr[40]=1;

}

}

if (! (b==40))

{

int k=0;

while (! (k==40))

{

k=0;

p=razn(c2, ed);

for (i=0; i< 41; i++, p++)

{

c2[i]=*(p);

}

for (i=0; i< 40; i++)

{

if (c2[i]==0)

{

k++;

}

}

p=proizv(powerArr, s1);

for (int y=0; y< 41; y++, p++)

{

powerArr[y]=*(p);

}

if (! (powerArr[0]==0))

{

powerArr[0]=15;

Form1-> Label5-> Caption=" ";

return & powerArr[0];

}

}

}

return & powerArr[0];

}

//---------------------------------------------------------------------------

int* fact(int s)

{

static int factArr[41];

int i;

for (i=0; i< 39; i++)

{

factArr[i]=0;

}

factArr[39]=1;

factArr[40]=0;

if ((s==0)||(s==1))

{

return & factArr[0];

}

else

{

int temp[41];

for (i=2; i< =s; i++)

{

for (int q=0; q< 41; q++)

{

temp[q]=0;

}

int k=i;

int m=39;

while (k)

{

temp[m]=k%10;

k/=10;

m--;

}

int* p=proizv(factArr, temp);

for (int y=0; y< 40; y++, p++)

{

factArr[y]=*(p);

}

if (! (factArr[0]==0))

{

factArr[0]=15;

Form1-> Label5-> Caption=" ";

return & factArr[0];

}

}

return & factArr[0];

}

}

//---------------------------------------------------------------------------

int sravn(int c1[41], int c2[41])

{

int i=0;

int p=1;

int sravn;

while ((i< 40)& & (p))

{

if (c1[i]> c2[i])

{

p=0;

sravn=1;

}

else

{

if (c1[i]< c2[i])

{

p=0;

sravn=0;

}

else

{

p=1;

i++;

}

}

}

if (i==40)

{

sravn=2;

}

return sravn;

}

//---------------------------------------------------------------------------

int podbor(int c1[41], int c2[41])

{

int s1=1;

int s2;

int i=1;

int tempArr[41];

int temp1[41];

int nulev[41];

int j;

for (j=0; j< 41; j++)

{

nulev[j]=0;

}

while ((i< 10)& & (s1))

{

for (int j=0; j< 39; j++)

{

tempArr[j]=0;

}

tempArr[39]=i;

tempArr[40]=0;

int* p=proizv(c2, tempArr);

for (j=0; j< 41; j++, p++)

{

tempArr[j]=*(p);

}

p=razn(c1, tempArr);

for (j=0; j< 41; j++, p++)

{

temp1[j]=*(p);

}

s1=sravn(temp1, c2);

s2=sravn(temp1, nulev);

i++;

}

if (s2)

{

return i-1;

}

else

{

return i;

}

}

//---------------------------------------------------------------------------

void devCel(int c1[41], int c2[41])

{

int a1=c1[40];

int a2=c2[40];

c1[40]=0;

c2[40]=0;

int k1=0;

int i;

for (i=0;! (c1[i])& & (i< 41); i++)

{

k1++;

}

int k2=0;

for(i=0;! (c2[i])& & (i< 41); i++)

{

k2++;

}

int p=40-k2;

int temp[41];

int temp1[41];

for (i=0; i< 41; i++)

{

temp[i]=0;

}

static int chastnoe[41];

for (i=0; i< 41; i++)

{

chastnoe[i]=0;

}

int s=1;

AnsiString s3=" ";

s=sravn(c1, c2);

int flag1=1;

if (s==0)

{

s3=devOst(c1, c2);

flag1=0;

}

else

{

int l=k1+p-1;

for (i=k1; i< =l; i++, k2++)

{

temp[k2]=c1[i];

}

int c=0;

while (l< 40)

{

s=sravn(temp, c2);

if (s==0)

{

l++;

if (l< 40)

{

for (i=0; i< 39; i++)

{

temp[i]=temp[i+1];

}

temp[39]=c1[l];

int u=sravn(temp, c2);

if (u==0)

{

chastnoe[c]=0;

c++;

}

}

}

else

{

if (s==2)

{

for (i=0; i< 40; i++)

{

temp[i]=0;

}

chastnoe[c]=1;

c++;

}

else

{

int g=podbor(temp, c2);

int ed[41];

for (i=0; i< 39; i++)

{

ed[i]=0;

}

ed[39]=g;

ed[40]=0;

chastnoe[c]=g;

int* p=proizv(c2, ed);

for (i=0; i< 41; i++, p++)

{

temp1[i]=*(p);

}

p=razn(temp, temp1);

for (i=0; i< 41; i++, p++)

{

temp[i]=*(p);

}

c++;

continue;

}

}

}

int t=39;

if (c< 40)

{

for (i=c-1; i> =0; i--, t--)

{

chastnoe[t]=chastnoe[i];

chastnoe[i]=0;

}

}

}

int m=(a1==a2);

if (m)

{

chastnoe[40]=0;

}

else

{

chastnoe[40]=1;

}

AnsiString s1=" ";

if (chastnoe[40]==1)

{

s1+=" -";

}

int k=0;

while (! (chastnoe[k])& & (k< 40))

{

k++;

}

for (int i=k; i< 40; i++)

{

s1+=IntToStr(chastnoe[i]);

}

if (k==40)

{

s1+=" 0";

}

AnsiString s2=" ";

if (flag1)

{

int w=0;

int flag=1;

for (i=0; i< 41, flag; i++)

{

if (! (temp[i]))

{

w++;

}

else

{

flag=0;

}

}

if (! (w==41))

{

s2=devOst(temp, c2);

}

}

Form1-> Label5-> Caption=s1+s2+s3;

}

//---------------------------------------------------------------------------

AnsiString devOst(int c1[41], int c2[42])

{

c2[40]=0;

int temp[41];

int temp1[41];

int i;

for (i=0; i< 41; i++)

{

temp[i]=c1[i];

}

int s=1;

static int chastnoe[41];

for (i=0; i< 41; i++)

{

chastnoe[i]=0;

}

int c=0;

int k=0;

while (k< 6)

{

s=sravn(temp, c2);

if (s==0)

{

k++;

for (i=0; i< 39; i++)

{

temp[i]=temp[i+1];

}

temp[39]=0;

int u=sravn(temp, c2);

if (u==0)

{

chastnoe[c]=0;

c++;

}

}

else

{

if (s==2)

{

for (i=0; i< 40; i++)

{

temp[i]=0;

}

chastnoe[c]=1;

c++;

}

else

{

int g=podbor(temp, c2);

int ed[41];

for (i=0; i< 39; i++)

{

ed[i]=0;

}

ed[39]=g;

ed[40]=0;

chastnoe[c]=g;

int* p=proizv(c2, ed);

for (i=0; i< 41; i++, p++)

{

temp1[i]=*(p);

}

p=razn(temp, temp1);

for (i=0; i< 41; i++, p++)

{

temp[i]=*(p);

}

c++;

continue;

}

}

}

if (chastnoe[c-1]> 4)

{

chastnoe[c-2]+=1;

}

AnsiString st=".";

int q=0;

for (int i=0; i< 5; i++)

{

if (chastnoe[i]==0)

{

q++;

}

}

if (q==5)

{

chastnoe[3]=1;

}

for (i=2; i< 6; i++)

{

st+=IntToStr(chastnoe[i-2]);

}

int m=st.Length();

int b=1;

for (i=m; i> 0; i--)

{

AnsiString k=IntToStr(0);

if ((st[i]==k[1])& & (b))

{

st.Delete(i, 1);

}

else

{

b=0;

}

}

return st;

}

//---------------------------------------------------------------------------

void output(int c1[41])

{

AnsiString s=" ";

if (c1[40]==1)

{

s+=" -";

}

int k=0;

while (! (c1[k])& & (k< 40))

{

k++;

}

for (int i=k; i< 40; i++)

{

s+=IntToStr(c1[i]);

}

if (k> 39)

{

s=" 0";

}

Form1-> Label5-> Caption=s;

}

//---------------------------------------------------------------------------

void focus(int s)

{

if (s==1) Form1-> Edit1-> SetFocus();

if (s==2) Form1-> Edit2-> SetFocus();

if (s==3) Form1-> Edit3-> SetFocus();

if (s==4) Form1-> Edit4-> SetFocus();

if (s==5) Form1-> Edit5-> SetFocus();

if (s==6) Form1-> Edit6-> SetFocus();

}

//---------------------------------------------------------------------------

int check1(AnsiString s1, int k)

{

int len1=s1.Length();

if (len1> 0)

{

if (s1[1]=='-')

{

len1-=1;

}

}

if (len1==0)

{

ShowMessage(" Заполните все поля! После этого нажмите кнопку 'Вычислить'");

Form1-> Label5-> Caption=" ";

focus(k);

return 0;

}

if (len1> 39)

{

ShowMessage(" Длина введенного числа превышает допустимую.\nПопробуйте уменьшить кол-во разрядов");

Form1-> Label5-> Caption=" ";

focus(k);

return 0;

}

if (! ((s1.Pos(" -")==1)||(s1.Pos(" -")==0)))

{

ShowMessage(" Некорректная запись");

Form1-> Label5-> Caption=" ";

focus(k);

return 0;

}

return 1;

}

//---------------------------------------------------------------------------

int check2(AnsiString s2, int k)

{

int len2=s2.Length();

if (len2> 0)

{

if (s2[1]=='-')

{

len2-=1;

ShowMessage(" Показатель степени должен быть неотрицательным");

Form1-> Label5-> Caption=" ";

focus(k);

return 0;

}

}

if (len2==0)

{

ShowMessage(" Заполните все поля! После этого нажмите кнопку 'Вычислить'");

Form1-> Label5-> Caption=" ";

focus(k);

return 0;

}

if (len2> 39)

{

ShowMessage(" Длина введенного числа превышает допустимую.\nПопробуйте уменьшить кол-во разрядов");

Form1-> Label5-> Caption=" ";

focus(k);

return 0;

}

if (! ((s2.Pos(" -")==1)||(s2.Pos(" -")==0)))

{

ShowMessage(" Некорректная запись");

Form1-> Label5-> Caption=" ";

focus(k);

return 0;

}

return 1;

}

//---------------------------------------------------------------------------

int* convert(AnsiString s1)

{

char szN1[41];

int i;

for (i=0; i< 41; i++)

{

szN1[i]=0;

}

for (i=1; i< =s1.Length(); i++)

{

szN1[i-1]=s1[i];

}

int* p=getArr(szN1);

return p;

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Button1Click(TObject *Sender)

{

int t;

int* p;

AnsiString s1;

s1=Edit1-> Text;

t=check1(s1, 1);

if (! (t))

{

return;

}

AnsiString s2;

s2=Edit2-> Text;

t=check1(s2, 2);

if (! (t))

{

return;

}

if (! ((s2.Pos(" -")==1)||(s2.Pos(" -")==0)))

{

ShowMessage(" Некорректная запись");

Label5-> Caption=" ";

Edit2-> SetFocus();

return;

}

if ((Label4-> Caption==" Возведение в степень")& & (s2[1]=='-'))

{

ShowMessage(" Показатель степени должен быть неотрицательным");

Label5-> Caption=" ";

Edit2-> SetFocus();

return;

}

int n=0;

int j;

if (Label4-> Caption==" Деление")

{

int pos=s2.Pos(" -");

int len2=s2.Length();

int g=len2;

if (pos)

{

g++;

}

else

{

pos++;

}

for (j=pos; j< =g; j++)

{

if (s2[j]=='0')

{

n++;

}

}

if (n==len2)

{

ShowMessage(" Деление на ноль невозможно! ");

Label5-> Caption=" ";

Edit2-> SetFocus();

return;

}

}

int i;

int arr1[41];

p=convert(s1);

for (int i=0; i< 41; i++, p++)

{

arr1[i]=*(p);

}

int arr2[41];

p=convert(s2);

for (i=0; i< 41; i++, p++)

{

arr2[i]=*(p);

}

int result[41];

AnsiString s=Label4-> Caption;

int flag;

int f=1;

int k=0;

if (s==" Сложение")

{

p=summ(arr1, arr2);

flag=1;

}

if (s==" Вычитание")

{

p=razn(arr1, arr2);

flag=1;

}

if (s==" Умножение")

{

p=proizv(arr1, arr2);

flag=1;

}

if (s==" Деление")

{

for (i=0; i< 40, f; i++)

{

if (arr1[i]==0)

{

k++;

}

else

{

f=0;

}

}

if (k> 39)

{

for (i=0; i< 41; i++)

{

result[i]=0;

}

flag=1;

p=& result[0];

}

else

{

devCel(arr1, arr2);

flag=0;

}

}

if (s==" Возведение в степень")

{

p=power(arr1, arr2);

flag=1;

}

if (flag)

{

for (i=0; i< 41; i++, p++)

{

result[i]=*(p);

}

if (result[0]==0)

{

output(result);

}

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Button3Click(TObject *Sender)

{

AnsiString str=Edit1-> Text;

if ((str==" ")||(str==" -"))

{

ShowMessage(" Заполните все поля! После этого нажмите кнопку 'Вычислить'");

Label5-> Caption=" ";

Edit1-> SetFocus();

return;

}

if (! ((str.Pos(" -")==1)||(str.Pos(" -")==0)))

{

ShowMessage(" Некорректная запись");

Label5-> Caption=" ";

Edit1-> SetFocus();

return;

}

int s;

if (! (str.Length()> 2))

{

s=StrToInt(str);

if (s> 34)

{

ShowMessage(" Результат превышает допустимое значение.\nПопробуйте уменьшить исходные числа");

return;

}

}

if (s< 0)

{

ShowMessage(" Число должно быть неотрицательным");

Label5-> Caption=" ";

Edit1-> SetFocus();

}

else

{

int* p=fact(s);

int result[41];

for (int i=0; i< 41; i++, p++)

{

result[i]=*(p);

}

if (result[0]==0)

{

output(result);

}

}

}

//---------------------------------------------------------------------------

int* Fun1()

{

int t;

AnsiString s1;

s1=Form1-> Edit1-> Text;

t=check1(s1, 1);

if (! (t))

{

return NULL;

}

AnsiString s2;

s2=Form1-> Edit2-> Text;

t=check2(s2, 2);

if (! (t))

{

return NULL;

}

AnsiString s3;

s3=Form1-> Edit4-> Text;

t=check1(s3, 4);

if (! (t))

{

return NULL;

}

AnsiString s4;

s4=Form1-> Edit5-> Text;

t=check2(s4, 5);

if (! (t))

{

return NULL;

}

AnsiString s5;

s5=Form1-> Edit3-> Text;

int len5=s5.Length();

if (len5==0)

{

ShowMessage(" Заполните все поля! После этого нажмите кнопку 'Вычислить'");

Form1-> Label5-> Caption=" ";

Form1-> Edit3-> SetFocus();

return NULL;

}

int i;

int* p;

int arr1[41];

p=convert(s1);

for (int i=0; i< 41; i++, p++)

{

arr1[i]=*(p);

}

int arr2[41];

p=convert(s2);

for (int i=0; i< 41; i++, p++)

{

arr2[i]=*(p);

}

int arr3[41];

p=convert(s3);

for (int i=0; i< 41; i++, p++)

{

arr3[i]=*(p);

}

int arr4[41];

p=convert(s4);

for (int i=0; i< 41; i++, p++)

{

arr4[i]=*(p);

}

p=power(arr1, arr2);

int resPow1[41];

for (int i=0; i< 41; i++, p++)

{

resPow1[i]=*(p);

}

if (resPow1[0]==15)

{

Form1-> Label5-> Caption=" ";

return NULL;

}

p=power(arr3, arr4);

int resPow2[41];

for (int i=0; i< 41; i++, p++)

{

resPow2[i]=*(p);

}

if (resPow1[0]==15)

{

Form1-> Label5-> Caption=" ";

return NULL;

}

int result[41];

if (s5==" -")

{

p=razn(resPow1, resPow2);

}

else

{

p=summ(resPow1, resPow2);

}

return p;

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Button4Click(TObject *Sender)

{

int* p=Fun1();

if (p==NULL)

{

return;

}

else

{

int result[41];

for (int i=0; i< 41; i++, p++)

{

result[i]=*(p);

}

if (result[0]==0)

{

output(result);

}

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Button5Click(TObject *Sender)

{

int* p=Fun1();

int result[41];

if (p==NULL)

{

return;

}

else

{

for (int i=0; i< 41; i++, p++)

{

result[i]=*(p);

}

}

int t;

int i;

AnsiString s5;

s5=Edit6-> Text;

int len5=s5.Length();

t=check1(s5, 6);

if (! (t))

{

return;

}

int n=0;

int j;

int pos=s5.Pos(" -");

int g=len5;

if (pos)

{

g++;

}

else

{

pos++;

}

for (j=pos; j< =g; j++)

{

if (s5[j]=='0')

{

n++;

}

}

if (n==len5)

{

ShowMessage(" Деление на ноль невозможно! ");

Label5-> Caption=" ";

Edit6-> SetFocus();

return;

}

int arr5[41];

p=convert(s5);

for (int i=0; i< 41; i++, p++)

{

arr5[i]=*(p);

}

int k=0;

int result1[41];

int flag;

int f=1;

for (i=0; i< 40, f; i++)

{

if (result[i]==0)

{

k++;

}

else

{

f=0;

}

}

if (k> 39)

{

for (i=0; i< 41; i++)

{

result1[i]=0;

}

flag=1;

p=& result1[0];

}

else

{

devCel(result, arr5);

flag=0;

}

if (flag)

{

for (i=0; i< 41; i++, p++)

{

result1[i]=*(p);

}

output(result1);

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Edit1KeyPress(TObject *Sender, char & Key)

{

if ((Key> ='0')& & (Key< ='9'))

{

return;

}

if (Key=='-')

{

return;

}

if (Key==VK_BACK)

{

return;

}

if (Key==VK_RETURN)

{

if (Label4-> Caption==" Факториал")

{

TForm1:: Button3Click(Sender);

}

else

{

Edit2-> SetFocus();

}

return;

}

Key=0;

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Edit2KeyPress(TObject *Sender, char & Key)

{

if ((Key> ='0')& & (Key< ='9'))

{

return;

}

if (Key=='-')

{

return;

}

if (Key==VK_BACK)

{

return;

}

Key=0;

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Edit3KeyPress(TObject *Sender, char & Key)

{

if ((Key=='-')||(Key=='+'))

{

return;

}

if (Key==VK_BACK)

{

return;

}

Key=0;

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Button2Click(TObject *Sender)

{

Edit1-> Text=" ";

Edit2-> Text=" ";

Edit3-> Text=" ";

Edit4-> Text=" ";

Edit5-> Text=" ";

Edit6-> Text=" ";

Label5-> Caption=" ";

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: MExitClick(TObject *Sender)

{

Form1-> Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: MTopicClick(TObject *Sender)

{

WinExec(" hh help.chm", SW_RESTORE);

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: N1Click(TObject *Sender)

{

Form2-> Top=Form1-> Top+Form1-> Height/2-Form2-> Height/2;

Form2-> Left=Form1-> Left+Form1-> Width/2-Form2-> Width/2;

Form2-> ShowModal();

}

//---------------------------------------------------------------------------

Unit 2.cpp

//---------------------------------------------------------------------------

#include < vcl.h>

#pragma hdrstop

#include " Unit2.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource " *.dfm"

TForm2 *Form2;

//---------------------------------------------------------------------------

__fastcall TForm2:: TForm2(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm2:: Label4Click(TObject *Sender)

{

ShellExecute(Form2-> Handle, " open", Label4-> Caption.c_str(), NULL, NULL, SW_RESTORE);

}

//---------------------------------------------------------------------------

void __fastcall TForm2:: Button1Click(TObject *Sender)

{

ModalResult=mrOk;

}

//---------------------------------------------------------------------------