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

  

Программа демонстрирует использование компонента 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;

Продолжаем изучать Delphi

Программа просмотра фотографий... Программа демонстрирует использование компонента ListBox. Программа позволяет просмотреть фотографии...
Программа подсчета цены металлопластикового окна... Программа демонстрирует использование компонента CheckBox. Программа позволяет посчитать цену металл...
Пример программы с использованием Button... Программа демонстрирует использование компонента Button. Программа пересчитывает расстояние из килом...
Пример программы с использованием Edit... Программа демонстрирует использование компонента Edit для ввода данных различного типа. Программа сп...