ПРОЕКТ  «КОМУНАЛЬНІ ПЛАТЕЖІ»

Мета: вивчення оператора розгалуження, застосування в проектах  з розгалуженням перемикачів та  вкладок на сторінці.

Завдання: створити програму, з допомогою якої можна було б обраховувати комунальні платежі за електроенергію, та газ. Потрібно врахувати, що тарифи за ці комунальні послуги залежать від місячної витрати кВт при оплаті за електрику і від річної витрати кубометрів  при оплаті за газ.

Тарифи за електроенергію:

<150кВт*год/місяць - 28,02 коп/1кВт*год

>150кВт*год/місяць і <800кВт*год/місяць–36,48 коп/1кВт*год;

 >800кВт*год/місяць - 95,76 коп/1кВт*год.

Тарифи за газ:

 <2500 куб м./рік - 0,7254 грн/куб.м

>2500 куб м./рік і <6000 куб м./рік  -1.0980;

>6000 куб м./рік і <12000 куб м./рік  -2.2482;

Компоненти дизайну: поле для вкладок PageControl(Win32), 2 картинки Image, 2 кнопки Batton, надписи Label, 3 перемикачі RadioButton

 Дизайн має наступний вигляд:

1. Для дизайну використовуємо PageControl (Win32),  добавляємо ПКМ дві вкладки New Page (газ і електроенергія)

2.  На кожній  на відповідну кнопку пишемо процедуру.

3. Процедура обчислення оплати за газ:

 procedure TForm1.Button2Click(Sender: TObject);

var POK,x2,t,x1,s:Real;

begin

x1:=StrToFloat(Edit3.Text);

x2:=StrToFloat(Edit4.Text);

POK:=x2-x1;

if  RadioButton 1.Checked=True Then t:=0.7254;

if RadioButton 2.Checked=True Then t:=1.0980;

if RadioButton 3.Checked=True Then t:=2.2482;

S:=POK*T;

ShowMessage('До оплати за природний газ '+FloatToStr(S)+' грн.');

end;

1.     Процедура на кнопку оплати за електроенергію:

procedure TForm1.Button1Click(Sender: TObject);

var

POK,x2,t,x1,s:Real;

begin

x1:=StrToFloat(Edit1.Text);

x2:=StrToFloat(Edit2.Text);

POK:=x2-x1;

if POK < 150 Then T:=0.28;

if (POK > 150)and(POK<800)Then T:=0.3648 else T:=0.5472;

S:=POK*T;

ShowMessage('До оплати за електроенергію '+ FloatToStr(S)+' грн.');

end;