Практична робота "Комунальні платежі"

Практична робота «Комунальні платежі»

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

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

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

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

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

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

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

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

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

2. Створіть нову форму за зразком.

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

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

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;

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

 procedure TForm1.Button2Click(Sender: TObject);

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

begin

x1:=StrToFloat(Edit3.Text);

x2:=StrToFloat(Edit4.Text);

POK:=x2-x1;

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

(аналогічно для інших показників)

S1:=POK*T;

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

end;

5. Оформіть вкладки за власним смаком.

6. Збережіть проект в папці Практична 15

Для самостійного виконання.

1. Додайте ще одну вкладку Тепло.
2. Розробіть дизайн для розв’язання задачі: «Обрахувати вартість сплати за тепло, якщо плата за 1 м² становить 10,86 грн.»
3. Переробіть програмні коди, щоб результати сплати виводилися у відповідні поля.
4. На вкладці електроенергія створіть кнопку Загальна сума до сплати, запрограмувавши її на обчислення суми спати за комунальні послуги.