Int a, b, c; //стороны

if ((InpA->Text != "")&&(InpB->Text != "")&&(InpC->Text != ""))

{ a = StrToInt(InpA->Text); b = StrToInt(InpB->Text);

if (RadioButton1->Checked == true)

{ c = StrToInt(InpC->Text);

p =(a+b+c)/2; //полупериметр

s = sqrt(p*(p-a)*(p-b)*(p-c));

Result->Text = FloatToStr(s);

}

else

{ p = StrToInt(InpC->Text);

s = a*b*sin(p*3.141592654/180);

Result->Text = FloatToStr(s); }

}

}

• Добавьте на форму компонент ComboBox1. В нем мы будем изменять цвет фона у компонентов InpA, InpB, InpC при выборе соответствующего цвета из списка., например на желтый или серый. Для этого в свойстве Items необходимо набрать названия цветов, а в обработчике события OnChange компонента написать

switch (ComboBox1->ItemIndex)

{case0: InpA->Color=clYellow; InpB->Color=clYellow; InpC->Color=clYellow;

break;

case1: InpA->Color=clSilver;InpB->Color=clSilver;InpC->Color=clSilver;break;}

• Затем поместите на форму компонент CheckBox1, который будет следить за отображением ComboBox1, т.е. есть галочка - выпадающий список появляется, нет – исчезает. Таким образом, необходимо обрабатывать событие OnClick компонента CheckBox1

{ if (CheckBox1->Checked == true)

ComboBox1->Visible = true;

else

ComboBox1->Visible = false;

}

• Откомпилируйте и запустите приложение (F9).

Задания

1. Рассчитать стипендию студента в зависимости от успеваемости.

2. Рассчитать средний балл студента за сессию.

3. Рассчитать среднюю скорость бега студента при сдаче одного из нормативов: бег 100 метров, бег 2 км, бег 3 км.

4. Осуществить перевод температуры, заданной в градусах Цельсия, в Кельвины, по Фаренгейту и Реомюру, используя формулы

5. T(K) = t(^oC)+273, T(^oF) = 9/5*t(^oC)+32, T(^o) =5/4*t(^oC)

6. Сделать обратные преобразования, описанные в задании 4.

7. Вычислить определитель матрицы размером 2 на 2, используя формулу A_2-2 = a₁₁*a₂₂ - a₁₂*a₂₁

8. Вычислить определитель матрицы размером 3 на 3

A_3-3 = a₁₁*a₂₂*a₃₃ - a₁₁*a₂₃*a₃₂ – a₁₂*a₂₁*a₃₃ + a₁₂*a₂₃*a₃₁ + a₁₃*a₂₁*a₃₂ – a₁₃*a₂₂*a₃₁

9. Осуществить перевод длины в сантиметрах в миллиметры, метры (дюймы).

10. Сделать обратные преобразования, описанные в задании 8.

11. Организовать калькулятор с операциями +, -, /, *, sin, cos, tan.

12. Выделить у числа целую и дробную части.

13. Вычислить для числа значения возведения его в заданную степень.

14. Вычислить для двух элементов (0 или 1) значения по таблицам истинности (And, Or, Xor, Not).

15. Вычислить объем нескольких фигур.

16. Организовать перевод времени в различных часовых поясах.

17. Сделать перевод скорости из км/ч в м/с.

18. Сделать перевод скорости из м/с в км/ч.

19. Организовать вывод таблицы умножения для числа в диапазоне, задаваемом пользователем.

20. Организовать эхо - печать элементов, которые выбираются из нескольких списков или групп.