Реферат Розробка програмного модуля для розрахунку основних геометричних характеристик трикутника

--------

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

{

/ * Виконання коду кнопки Button1 при натисканні Enter в Edit1 * /

if ((Key == VK_RETURN) && (Edit1-> Text. Length ()> 0) && (Edit2-> Text. Length ()> 0)

&& (Edit3-> Text. Length ()> 0) && (Edit4-> Text. Length ()> 0)

&& (Edit5-> Text. Length ()> 0) && (Edit6-> Text. Length ()> 0))

{Button1-> Default=True; }

/ * Дозволені символи в Edit1 * /

if ((Key <«0» | | Key> «9») && Key!=8) Key=0;

}

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

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

{

/ * Виконання коду кнопки Button1 при натисканні Enter в Edit2 * /

if ((Key == VK_RETURN) && (Edit1-> Text. Length ()> 0) && (Edit2-> Text. Length ()> 0)

&& (Edit3-> Text. Length ()> 0) && (Edit4-> Text. Length ()> 0)

&& (Edit5-> Text. Length ()> 0) && (Edit6-> Text. Length ()> 0))

{Button1-> Default=True; }

/ * Дозволені символи в Edit2 * /

if ((Key <«0» | | Key> «9») && Key!=8) Key=0;

}

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

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

{

/ * Виконання коду кнопки Button1 при натисканні Enter в Edit3 * /

if ((Key == VK_RETURN) && (Edit1-> Text. Length ()> 0) && (Edit2-> Text. Length ()> 0)

&& (Edit3-> Text. Length ()> 0) && (Edit4-> Text. Length ()> 0)

&& (Edit5-> Text. Length ()> 0) && (Edit6-> Text. Length ()> 0))

{Button1-> Default=True; }

/ * Дозволені символи в Edit3 * /

if ((Key <«0» | | Key> «9») && Key!=8) Key=0;

}

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

void __ fastcall TForm1 :: Edit4KeyPress (TObject * Sender, char & Key)

{

/ * Виконання коду кнопки Button1 при натисканні Enter в Edit4 * /

if ((Key == VK_RETURN) && (Edit1-> Text. Length ()> 0) && (Edit2-> Text. Length ()> 0)

&& (Edit3-> Text. Length ()> 0) && (Edit4-> Text. Length ()> 0)

&& (Edit5-> Text. Length ()> 0) && (Edit6-> Text. Length ()> 0))

{Button1-> Default=True; }

/ * Дозволені символи в Edit4 * /

if ((Key <«0» | | Key> «9») && Key!=8) Key=0;

}

/ / ----------------------------------...