Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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





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

Рис. 5.3. Схема вычисления функции xa + yb (Button4Click)

Рис. 5.4. Схема вычисления функции (xa + yb)/с (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;

}

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

 







Дата добавления: 2014-11-12; просмотров: 598. Нарушение авторских прав; Мы поможем в написании вашей работы!




Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...


Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...


Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...


Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...

Репродуктивное здоровье, как составляющая часть здоровья человека и общества   Репродуктивное здоровье – это состояние полного физического, умственного и социального благополучия при отсутствии заболеваний репродуктивной системы на всех этапах жизни человека...

Случайной величины Плотностью распределения вероятностей непрерывной случайной величины Х называют функцию f(x) – первую производную от функции распределения F(x): Понятие плотность распределения вероятностей случайной величины Х для дискретной величины неприменима...

Схема рефлекторной дуги условного слюноотделительного рефлекса При неоднократном сочетании действия предупреждающего сигнала и безусловного пищевого раздражителя формируются...

Типовые примеры и методы их решения. Пример 2.5.1. На вклад начисляются сложные проценты: а) ежегодно; б) ежеквартально; в) ежемесячно Пример 2.5.1. На вклад начисляются сложные проценты: а) ежегодно; б) ежеквартально; в) ежемесячно. Какова должна быть годовая номинальная процентная ставка...

Выработка навыка зеркального письма (динамический стереотип) Цель работы: Проследить особенности образования любого навыка (динамического стереотипа) на примере выработки навыка зеркального письма...

Словарная работа в детском саду Словарная работа в детском саду — это планомерное расширение активного словаря детей за счет незнакомых или трудных слов, которое идет одновременно с ознакомлением с окружающей действительностью, воспитанием правильного отношения к окружающему...

Studopedia.info - Студопедия - 2014-2025 год . (0.013 сек.) русская версия | украинская версия