Программа вычисляет цену жалюзи

  

Программа демонстрирует использование компонента RadioButton. Программа вычисляет цену жалюзи, в зависимости от размера и материала, из которого они изготовлены.

Демонстрация использования компонента RadioButton

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
// щелчок на кнопке OK
procedure TForm1.Button1Click(Sender: TObject);
var
w,h,s: real; // ширина, высота и площадь
c: real; // цена за 1 кв.м.
summ: real; // сумма
st: string; // сообщение
begin
w := StrToFloat(Edit1.Text);
h := StrToFloat(Edit2.Text);
s := w * h / 10000;

if RadioButton1.Checked then
c := 360 // выбран переключатель "алюминий"
else
c := 180; // выбран переключатель "пластик"

summ := s * c;

st := 'Размер: ' + Edit1.Text + 'x' + Edit2.Text + ' см' + #10 +
'Материал: ';

if RadioButton1.Checked then
st := st + 'алюминий'
else
st := st + 'пластик';

st := st + #10 + 'Сумма: ' + FloatToStrF(summ, ffCurrency, 6,2);

Label3.Caption := st;

end;