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

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

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





Рис. 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 оперирует с двумя категориями...


Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...


Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...


ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Демографияда "Демографиялық жарылыс" дегеніміз не? Демография (грекше демос — халық) — халықтың құрылымын...

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

ЛЕЧЕБНО-ПРОФИЛАКТИЧЕСКОЙ ПОМОЩИ НАСЕЛЕНИЮ В УСЛОВИЯХ ОМС 001. Основными путями развития поликлинической помощи взрослому населению в новых экономических условиях являются все...

Особенности массовой коммуникации Развитие средств связи и информации привело к возникновению явления массовой коммуникации...

Тема: Изучение приспособленности организмов к среде обитания Цель:выяснить механизм образования приспособлений к среде обитания и их относительный характер, сделать вывод о том, что приспособленность – результат действия естественного отбора...

Тема: Изучение фенотипов местных сортов растений Цель: расширить знания о задачах современной селекции. Оборудование:пакетики семян различных сортов томатов...

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