void __fastcall TForm1::Button9Click(TObject *Sender)

{

Memo1->Clear();

Edit1->Clear();

Edit2->Clear();

Edit3->Clear();

Edit4->Clear();

}

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

void __fastcall TForm1::Button5Click(TObject *Sender)

{

Memo2->Clear();

Edit5->Clear();

Edit6->Clear();

Edit7->Clear();

Edit8->Clear();

}

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

void __fastcall TForm1::Button7Click(TObject *Sender)

{

Memo3->Clear();

Edit9->Clear();

}

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

void __fastcall TForm1::Button10Click(TObject *Sender)

{

Memo4->Clear();

Edit10->Clear();

}

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

void __fastcall TForm1::TabSheet1ContextPopup(TObject *Sender,

TPoint &MousePos, bool &Handled)

{

}

//--------------------------------------------------------------------------- else

{Memo4->Lines->Add("False");}

break;

case 1:

if ( (pow((x+4),2)+pow((y-4),2)<=9) || ((x>0) && (y>0) && (y<=6-x)))

{Memo4->Lines->Add("True");}

else

{Memo4->Lines->Add("False");}

break;

}

}

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

void __fastcall TForm1::Button6Click(TObject *Sender)

{

Memo3->Clear();

Edit11->Clear();

}

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

void __fastcall TForm1::Button8Click(TObject *Sender)

{

Memo4->Clear();

Edit12->Clear();

Edit13->Clear();

}

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

Висновок: на лабораторних роботах ми навчилися створювати програмні продукти групою, коли кожен робить якусь певну працю та освіжили в памяті оператори switch-case, if-else!

---

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

• ТПСПП_6_3_310_у.doc

• Зв_т.doc

• ТПСПП_6_3_310_у.doc

• Зв_т.doc

• ТПСПП_4_4_310_у.doc