клик методу перевірки: чи є трикутник равностороннімtr2 (Xa, Xb, Xc, Ya, Yb, Yc);// Визначення об'єкта типу RavnTreug
MAS [i]. ravn=tr2. proverkaRavn (); [i]. bis=0;
/ * Перевірка * / (MAS [i]. proverka == 0) {
MessageBox (this-> Handle, «Ви побудували пряму», «Помилка!»,
MB_OK | MB_ICONERROR);
} {
/ * Якщо трикутник рівносторонній * / (MAS [i]. ravn == 1) {+ +;// Лічильник кількості рівносторонніх трикутників
/ / Висновок повідомлення, що створений рівносторонній трикутник (this-> Handle, «Ви створили рівносторонній трикутник», «УРА!», _OK | MB_ICONINFORMATION); [i]. bis=tr2. bissec ();// Виклик методу розрахунку бісектриси
/ * Пошук мінімальної бісектриси * / min=0;
int masimin=0, masi=0;=MAS [i]. bis; (masi=0; masi <= i; masi + +) {((MAS [masi]. bis!=0) && (MAS [masi]. bis <= min)) {= MAS [masi] . bis;=masi; }
}
/ / Висновок в Label13-> Caption=«Рівносторонній трикутник №»
+ IntToStr (masimin +1) + « має найменшу бісектрису рівну »
+ FloatToStrF (min, ffFixed, 10000,3) + « см »;
}. print (* Image1);// Виклик методу виведення трикутника на Canvas-> Items-> Add (i +1);// Додавання номера трикутник в ComboBox1-> Items-> Add (i +1);// Додавання номера трикутник в ComboBox2
Label2-> Caption=
«AB =» + FloatToStrF (MAS [i]. AB, ffFixed, 10000,3) + « см »
+ « nBC =» + FloatToStrF (MAS [i]. BC, ffFixed, 10000,3) + « см »
+ « nCA =» + FloatToStrF (MAS [i]. CA, ffFixed, 10000,3) + « см »
+ « nAlpha =» + FloatToStrF (MAS [i]. alpha, ffFixed, 10000,3) + «°»
+ « nBetta =» + FloatToStrF (MAS [I]. betta, ffFixed, 10000,3) + «°»
+ « nGamma =» + FloatToStrF (MAS [i]. gamma, ffFixed, 10000,3) + «°»
+ « nP =» + FloatToStrF (MAS [i]. perimetr, ffFixed, 10000,3) + « см »
+ « nS =» + FloatToStrF (MAS [i]. square, ffFixed, 10000,3) + « см ^ 2 »; -> ItemIndex=i; -> ItemIndex=i; + +;
/ / Висновок в Label10-> Caption=«Створено трикутників:» + IntToStr (i) + « n»
+ «З них рівносторонніх:» + IntToStr (countRavn);
/ * Висновок відомостей про трикутник в файл Treug. txt * /
book_file << «Трикутник №» << i << «: n"
<< «AB =» << tr1. putAB () << «см; »<<« »
<< «BC =» << tr1. putBC () << «см; »<<« »
<< «CA =» << tr1. putCA () << «см; N"
<< «alpha =» << tr1. putAlpha () << «°; »
<< «betta =» << tr1. putBetta () << «°; »
<< «gamma =» << tr1. putGamma () << «°; N"
<< «P =» << tr1. perimetr () << «см; N"
<< «S =» << tr1. square () << «см ^ 2; N"
<< «Рівносторонній трикутник (0-НІ; 1-ДА):» << tr1. proverka () << «; N n »;
/ * Пошук трикутника з максимальною площею * /
...
