float maxSquare=0; numMaxSquare=0, numMaxSquare2=0, countfor=0;=MAS [0]. square; (countfor=0; countfor <= i; countfor + +) {(MAS [countfor]. square> maxSquare) {= MAS [countfor]. square;=countfor; }
}
/ / Висновок в Label14-> Caption=«Трикутник №»
+ IntToStr (numMaxSquare +1) + « має найбільшу площу рівну »
+ FloatToStrF (maxSquare, ffFixed, 10000,3) + « см ^ 2 »;
ComboBox3-> Items-> Clear (); (countfor=0; countfor <= i; countfor + +) {((MAS [countfor]. square == maxSquare) && (countfor!=numMaxSquare)) {
Label16-> Caption=«Трикутники з такою ж площею:»;
ComboBox3-> Items-> Add (countfor +1); -> ItemIndex=0;
}
}
}. ~ Treug ();. ~ RavnTreug ();
}
}
/ / ---------------------------------------------------------- __fastcall TForm1 :: FormCreate (TObject * Sender)
{book_file («Treug. txt», ios :: trunc);// Очищення файлу=0; -> Canvas-> Rectangle (0,0,300,300); -> Caption=«Рівносторонній трикутник №??? має найменшу бісектрису рівну??? »;
Label14-> Caption=«Трикутник №??? має найбільшу площу рівну??? »; -> Caption =« Трикутники з такою ж площею: »;
}
/ / ----------------------------------------------------------
void __ fastcall TForm1 :: ComboBox1Change (TObject * Sender)
{
/ * Висновок даних про трикутник c номером, обраному в ComboBox1 в Label2 * /
int ii, k=0, j=0;=i;=i;=ComboBox1-> ItemIndex; (k=0; k <= j; k + +) {(k == ii) {-> Caption=
«AB =» + FloatToStrF (MAS [k]. AB, ffFixed, 10000,3) + « см »
+ « nBC =» + FloatToStrF (MAS [k]. BC, ffFixed, 10000,3) + « см »
+ « nCA =» + FloatToStrF (MAS [k]. CA, ffFixed, 10000,3) + « см »
+ « nAlpha =» + FloatToStrF (MAS [k]. alpha, ffFixed, 10000,3) + «°»
+ « nBetta =» + FloatToStrF (MAS [k]. betta, ffFixed, 10000,3) + «°»
+ « nGamma =» + FloatToStrF (MAS [k]. gamma, ffFixed, 10000,3) + «°»
+ « nP =» + FloatToStrF (MAS [k]. perimetr, ffFixed, 10000,3) + « см »
+ « nS =» + FloatToStrF (MAS [k]. square, ffFixed, 10000,3) + « см ^ 2 »;
}
}
}
/ / ----------------------------------------------------------
void __ fastcall TForm1 :: ComboBox2Change (TObject * Sender)
{
/ * Отрісовка трикутника c номером, обраному в ComboBox2 на Canvas * /
int ii, k=0, j=0;=i;=i;=ComboBox2-> ItemIndex; -> Canvas-> Rectangle (0,0,300,300); (k=0 ; k <= j; k + +) {(k == ii) {tr2 (MAS [k]. Xa, MAS [k]. Xb, MAS [k]. Xc, MAS [k]. Ya, MAS [k ]. Yb, MAS [k]. Yc);. storona ();. print (* Image1);
}
}
}
/ / --------------------------------------------------...
