Файл: Звіт до лабораторної роботи #3.doc

Скачать файл
Заказать решение

ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 07.08.2024

Просмотров: 28

Скачиваний: 0

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

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

{

Key=0;

}

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

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

{

if (IsCharAlpha(Key) || Key=='.' || Key==',' || Key=='-') Key=0;

}

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

void __fastcall TForm1::Button9Click(TObject *Sender)

{

Edit5->Clear();

Memo2->Clear();

}

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

void __fastcall TForm1::Button8Click(TObject *Sender)

{

int n=StrToInt(Edit5->Text);

if (n<284) {ShowMessage("В даних межах дружніх чисел немає"); Edit5->SetFocus();return;}

if (n>100000) {ShowMessage("Дуже велике число"); Edit5->SetFocus();return;}

if (n<1210) Memo2->Lines->Add("220 та 284");

else

if (n<2924){Memo2->Lines->Add("220 та 284");

Memo2->Lines->Add("1184 та 1210"); }

else

if (n<5564) {Memo2->Lines->Add("220 та 284");

Memo2->Lines->Add("1184 та 1210");

Memo2->Lines->Add("2620 та 2924");}

else

if (n<6368) {Memo2->Lines->Add("220 та 284");

Memo2->Lines->Add("1184 та 1210");

Memo2->Lines->Add("2620 та 2924");

Memo2->Lines->Add("5020 та 5564");}

else

if (n<10856) {Memo2->Lines->Add("220 та 284");

Memo2->Lines->Add("1184 та 1210");

Memo2->Lines->Add("2620 та 2924");

Memo2->Lines->Add("5020 та 5564");

Memo2->Lines->Add("6232 та 6368");}

else

if (n<14595) {Memo2->Lines->Add("220 та 284");

Memo2->Lines->Add("1184 та 1210");

Memo2->Lines->Add("2620 та 2924");

Memo2->Lines->Add("5020 та 5564");

Memo2->Lines->Add("6232 та 6368");

Memo2->Lines->Add("10744 та 10856");}

else

if (n<18416) {Memo2->Lines->Add("220 та 284");

Memo2->Lines->Add("1184 та 1210");

Memo2->Lines->Add("2620 та 2924");

Memo2->Lines->Add("5020 та 5564");

Memo2->Lines->Add("6232 та 6368");

Memo2->Lines->Add("10744 та 10856");

Memo2->Lines->Add("12285 та 14595");

}

else

if (n<66992) {Memo2->Lines->Add("220 та 284");

Memo2->Lines->Add("1184 та 1210");

Memo2->Lines->Add("2620 та 2924");

Memo2->Lines->Add("5020 та 5564");

Memo2->Lines->Add("6232 та 6368");

Memo2->Lines->Add("10744 та 10856");

Memo2->Lines->Add("12285 та 14595");

Memo2->Lines->Add("17296 та 18416");

}

else

if (n<71145) {Memo2->Lines->Add("220 та 284");

Memo2->Lines->Add("1184 та 1210");

Memo2->Lines->Add("2620 та 2924");

Memo2->Lines->Add("5020 та 5564");

Memo2->Lines->Add("6232 та 6368");

Memo2->Lines->Add("10744 та 10856");

Memo2->Lines->Add("12285 та 14595");

Memo2->Lines->Add("17296 та 18416");

Memo2->Lines->Add("66928 та 66992");

}

else

if (n<76084) {Memo2->Lines->Add("220 та 284");

Memo2->Lines->Add("1184 та 1210");

Memo2->Lines->Add("2620 та 2924");

Memo2->Lines->Add("5020 та 5564");

Memo2->Lines->Add("6232 та 6368");

Memo2->Lines->Add("10744 та 10856");

Memo2->Lines->Add("12285 та 14595");

Memo2->Lines->Add("17296 та 18416");

Memo2->Lines->Add("66928 та 66992");

Memo2->Lines->Add("67095 та 71145");}

else

if (n<87633) {Memo2->Lines->Add("220 та 284");

Memo2->Lines->Add("1184 та 1210");

Memo2->Lines->Add("2620 та 2924");

Memo2->Lines->Add("5020 та 5564");

Memo2->Lines->Add("6232 та 6368");

Memo2->Lines->Add("10744 та 10856");

Memo2->Lines->Add("12285 та 14595");

Memo2->Lines->Add("17296 та 18416");

Memo2->Lines->Add("66928 та 66992");

Memo2->Lines->Add("67095 та 71145");

Memo2->Lines->Add("63020 та 76084");}

else

if (n<88730) {Memo2->Lines->Add("220 та 284");

Memo2->Lines->Add("1184 та 1210");

Memo2->Lines->Add("2620 та 2924");

Memo2->Lines->Add("5020 та 5564");

Memo2->Lines->Add("6232 та 6368");

Memo2->Lines->Add("10744 та 10856");

Memo2->Lines->Add("12285 та 14595");

Memo2->Lines->Add("17296 та 18416");

Memo2->Lines->Add("66928 та 66992");

Memo2->Lines->Add("67095 та 71145");

Memo2->Lines->Add("63020 та 76084");

Memo2->Lines->Add("69615 та 87633");}

else

{Memo2->Lines->Add("220 та 284");

Memo2->Lines->Add("1184 та 1210");

Memo2->Lines->Add("2620 та 2924");

Memo2->Lines->Add("5020 та 5564");

Memo2->Lines->Add("6232 та 6368");

Memo2->Lines->Add("10744 та 10856");

Memo2->Lines->Add("12285 та 14595");

Memo2->Lines->Add("17296 та 18416");

Memo2->Lines->Add("66928 та 66992");

Memo2->Lines->Add("67095 та 71145");

Memo2->Lines->Add("63020 та 76084");

Memo2->Lines->Add("69615 та 87633");

Memo2->Lines->Add("79750 та 88730");}

}

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

void __fastcall TForm1::Button12Click(TObject *Sender)

{

switch(RadioGroup1->ItemIndex)

{

case 0:Edit7->Show(); Edit7->SetFocus();Edit8->Show(); Edit9->Show();Label11->Show();Label12->Show();Label13->Show();Label14->Show();break;

case 1:Edit10->Show(); Edit10->SetFocus();Edit11->Show(); Edit12->Show();Label12->Show();Label13->Show();Label14->Show();Label15->Show();break;

case 2:Edit13->Show(); Edit13->SetFocus();Label16->Show(); Label17->Show();break;

}

RadioGroup1->Hide();

Button12->Hide();Button13->Show();Button14->Show();Button16->Show();

}

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

void __fastcall TForm1::Button13Click(TObject *Sender)

{

int x1,x2,x3,x;

float y1,y2,y3,y;

switch(RadioGroup1->ItemIndex)

{

case 0: if(((Edit7->Text).Length()==0)||((Edit8->Text).Length()==0)||((Edit9->Text).Length()==0)) {ShowMessage("Ви не заповнили поля!"); return;}

Edit14->Show();Label18->Show(); x1=StrToInt(Edit7->Text);x2=StrToInt(Edit8->Text);x3=StrToInt(Edit8->Text);x=NSK(x1,NSK(x2,x3)); Edit14->Text=IntToStr(x);break;

case 1: if(((Edit10->Text).Length()==0)||((Edit11->Text).Length()==0)||((Edit12->Text).Length()==0)) {ShowMessage("Ви не заповнили поля!"); return;}

Edit14->Show();Label18->Show(); y1=StrToInt(Edit10->Text);y2=StrToInt(Edit11->Text);y3=StrToInt(Edit12->Text);y=max(y1,max(y2,y3))+min(y1,min(y2,y3));Edit14->Text=FloatToStrF(y,ffFixed,5,2);break;

case 2: if((Edit13->Text).Length()==0) {ShowMessage("Ви не заповнили поля!"); return;}

Edit14->Show();Label18->Show(); y1=StrToFloat(Edit13->Text);y=6*Plosha(y1);Edit14->Text=FloatToStrF(y,ffFixed,5,2);break;

}

Button13->Hide();Label19->Show();

}

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

void __fastcall TForm1::Button14Click(TObject *Sender)

{

Edit7->Clear();Edit8->Clear();Edit9->Clear();Edit10->Clear();Edit11->Clear();Edit12->Clear();Edit13->Clear();Edit14->Clear();

Edit14->Hide();Label18->Hide();Label19->Hide(); Button13->Show();

}

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

void __fastcall TForm1::Button16Click(TObject *Sender)

{

Edit7->Clear();Edit8->Clear();Edit9->Clear();Edit10->Clear();Edit11->Clear();Edit12->Clear();Edit13->Clear();Edit14->Clear();

Edit7->Hide();Edit8->Hide();Edit9->Hide();Edit10->Hide();Edit11->Hide();Edit12->Hide();Edit13->Hide();Edit14->Hide();

Label11->Hide();Label12->Hide();Label13->Hide();Label14->Hide();Label15->Hide();Label16->Hide();Label17->Hide();Label18->Hide();Label19->Hide();

Button13->Hide();Button14->Hide();Button16->Hide();

RadioGroup1->Show();Button12->Show();

}

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

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

{

Key=0;

}

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

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

{

if (IsCharAlpha(Key)) Key=0;

}

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

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

{

if (IsCharAlpha(Key)) Key=0;

}

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

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

{

if (IsCharAlpha(Key)) Key=0;

}

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

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

{

if (IsCharAlpha(Key)) Key=0;

}

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

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

{

if (IsCharAlpha(Key)) Key=0;

}

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

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

{

if (IsCharAlpha(Key)) Key=0;

}

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

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

{

if (IsCharAlpha(Key)) Key=0;

}

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

void __fastcall TForm1::Button15Click(TObject *Sender)

{

int n=StrToInt(Edit4->Text),i,j,count=0;

if (n<2) {ShowMessage("Надто малий проміжок"); return;}

Memo1->Lines->Add("Елементи:");

for (i=n;i<=2*n;i++)

if ((i==2 || i==3 || i==5) || (i%2!=0 && i%3!=0 && i%5!=0)) {

j=i+2;

if (j==5 || (j%2!=0 && j%3!=0 && j%5!=0))

if (j<=2*n) {

Memo1->Lines->Add(IntToStr(i)+" та "+IntToStr(j));

count++;

}

}

if (count==0) Memo1->Lines->Add("На проміжку немає чисел-близнят");

}

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

void __fastcall TForm1::Button6Click(TObject *Sender)

{

int i=0,n,digit,j,chis,c;

j=0; c=0;

Label23->Caption="";

Label27->Caption="";

Label26->Visible=false;

Label24->Visible=false;

Label25->Visible=false;

n=StrToInt(Edit15->Text);

while (n>0) {

digit=n % 10;

n=n / 10;

if (digit%2==0)

{ Label23->Caption="Число містить парні числа";

j=6;break;} }

if (j!=6) {

if (digit%2!=0){

n=StrToInt(Edit15->Text);

while (n>0) {

digit=n % 10;

n=n / 10;

i=i+digit; }

Label24->Visible=true;

Label25->Visible=true;

Label25->Caption=i; }

while (i>0) {

chis=i % 10;

i=i / 10;

if (chis%2==0)

{ c=c+1;} }

Label27->Visible=true;

Label27->Caption=c;

Label26->Visible=true; }

}

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

void __fastcall TForm1::Button17Click(TObject *Sender)

{

Label23->Caption="";

Label27->Caption="";

Label26->Visible=false;

Label24->Visible=false;

Label25->Visible=false;

Edit15->Clear();

}

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

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

{

if (IsCharAlpha(Key) || Key=='.' || Key==',' || Key=='-') Key=0;

}

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

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

{

if (IsCharAlpha(Key) || Key=='.' || Key==',' || Key=='-') Key=0;

}

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

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

{

Key=0;

}

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

void __fastcall TForm1::Button19Click(TObject *Sender)

{

Edit16->Clear();

Memo3->Clear();

Label29->Caption="";

}

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

void __fastcall TForm1::Button18Click(TObject *Sender)

{

int n,ok,h,ot,c[19];

Memo3->Lines->Add("Числа Мерсена");

h=StrToInt(Edit16->Text);

n=19;

ok=0;

Label29->Caption=h;

for (int i=0;ok<n;i++)

if (prv(i)<h)

{ ot=pow(2,i)-1;

ok++;

c[ok]=ot;

}

for (int i=2;i<19;i++)

{ if (h>=c[i])

Memo3->Lines->Add(c[i]);

}

}

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

void __fastcall TForm1::Button21Click(TObject *Sender)

{

Edit17->Clear();

Label32->Caption="";

}

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

Смотрите также файлы