Form1.close;

end;

Для кнопки с надписью ВЫЧИСЛИТЬ сгенерируйте процедуру для вычисления в зависимости от того, какой флажок включен.

procedure Button1OnClick;

var a, b, c: real;

begin

a: =strToFloat(edit1.text);

b: =strToFloat(edit2.text);

if (Checkbox1.Checked=true) then c: =a+b;

if (Checkbox2.Checked=true) then c: =a-b;

if (Checkbox3.Checked=true) then c: =a/b;

if (Checkbox4.Checked=true) then c: =a*b;

edit3.text: =floatToStr(c);

end;

Практическая работа № 3.

КАЛЬКУЛЯТОР С ВЫПАДАЮЩИМ СПИСКОМ.

Разместите на форме три окна ввода (Edit), две кнопки (Button), и выпадающий список (ComboBox).

В инспекторе объектов для каждого размещенного на форме элемента установите размер шрифта равный 18. Для этого у каждого элемента измените свойство Font.

Для кнопок свойства Caption замените на ВЫЧИСЛИТЬ и ВЫХОД.

Для выпадающего списка щелкните на свойстве Items. В открывшемся диалоговом окне введите названия арифметических действий СЛОЖИТЬ, ВЫЧЕСТЬ, УМНОЖИТЬ, РАЗДЕЛИТЬ.

Внешняя сторона программы готова. Можно изменить цвет элементов формы и надписей. Цвет элементов меняется в свойстве Color, у каждого объекта. Цвет надписи изменяется в свойстве Font.

Двойным щелчком по кнопке с надписью ВЫХОД сгенерируйте событие для завершения работы программы.

procedure Button2OnClick;

begin

Form1.close;

end;

Для кнопки с надписью ВЫЧИСЛИТЬ сгенерируйте процедуру для вычисления в зависимости от того, какой из элементов списка выбран.

procedure Button1OnClick;

var a, b, c: real;