o (Xa * mashtab, Ya * mashtab);
}; RavnTreug: public Treug / / Створення класу RavnTreug
{float ABravn; bis;: / / Визначення видимих ??методів і змінних
int proverkaRavn (); (float Xa1, float Xb1, float Xc1, float Ya1, float Yb1, float Yc1): Treug (Xa1, Xb1, Xc1, Ya1, Yb1, Yc1) {};// Конструктор класу RavnTreug
~ RavnTreug (); bissec ();// Метод розрахунку бісектриси рівностороннього трикутника
}; :: ~ RavnTreug () {} RavnTreug :: proverkaRavn ()
{storona (); AB1=(int) AB; ??BC1=(int) BC; CA1=(int) CA; ((AB1 == BC1) && (BC1 == CA1 )) {return 1; } Return 0;
} RavnTreug :: bissec ()
{storona ();=(putAB () * sqrt (3)) / 2; bis;
} countRavn=0;
/ / ----------------------------------------------------------
__fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{
}
/ / ----------------------------------------------------------
void __ fastcall TForm1 :: Button1Click (TObject * Sender)
{-> Height=430; Xa, Xb, Xc, Ya, Yb, Yc; AB, BC, CA, alpha, betta, gamma;
/ / Відкриття файл Treug. txt в режимі запису даних у кінець файлу
ofstream book_file («Treug. txt», ios :: app);
/ / Читання значень координат точок А, В, С з Edit'ов
/ / і додавання їх в масив структури
MAS [i]. Xa=Xa=StrToFloat (Edit1-> Text); [i]. Ya=Ya=StrToFloat (Edit2-> Text); [i]. Xb=Xb=StrToFloat (Edit3-> Text); [i]. Yb=Yb=StrToFloat (Edit4-> Text); [i]. Xc=Xc=StrToFloat (Edit5-> Text); [i]. Yc=Yc=StrToFloat (Edit6-> Text); (((MAS [i]. Xa == MAS [i]. Xb) && (MAS [i]. Ya == MAS [i]. Yb ) | |
(MAS [i]. Xa == MAS [i]. Xc) && (MAS [i]. Ya == MAS [i]. Yc) | |
(MAS [i]. Xb == MAS [i]. Xc) && (MAS [i]. Yb == MAS [i]. Yc)))
{MessageBox (this-> Handle, «Вершини трикутника не можуть розташовуватися в першу точці»,
«Помилка!», MB_OK | MB_ICONERROR);
} {tr1 (Xa, Xb, Xc, Ya, Yb, Yc);// Визначення об'єкта типу Treug
tr1. storona ();// Виклик методу розрахунку довжин сторін трикутника
/ / Зафарбовування Canvas-> Canvas-> Rectangle (0,0,300,300);
tr1. ugol ();// Виклик методу розрахунку кутів трикутника
/ / Виклик методів повернення значень довжин сторін трикутника
/ / і додавання отриманих значень в масив структури
MAS [i]. AB=tr1. putAB (); [i]. BC=tr1. putBC (); [i]. CA=tr1. putCA (); [i]. proverka=tr1. proverka ();
/ / Виклик методів розрахунку кутів, периметра і площі трикутника
/ / і додавання полуенних значень в масив структури
MAS [i]. alpha=tr1. putAlpha (); [i]. betta=tr1. putBetta (); [i]. gamma=tr1. putGamma (); [i]. perimetr=tr1. perimetr (); [i]. square=tr1. square ();
/ / Ви...
