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

Про матеріал

Практична робота "Комунальні платежі". Практична робота до уроку "Основи алгоритмізації та програмування. Розгалуження в алгоритмах і програмах". Завдання практичної роботи: "Розробити проек для автоматичного обрахунку комунальних платежів".

Перегляд файлу

 

Увага! Під час роботи з комп’ютером дотримуйтеся правил техніки безпеки.

 

 

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

  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;

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

Для дизайну використовуємо 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 м2 становить 10,86 грн.»
  3. Переробіть програмні коди, щоб результати сплати виводилися у відповідні поля.
  4. На вкладці електроенергія створіть кнопку Загальна сума до сплати, запрограмувавши її на обчислення суми спати за комунальні послуги.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

docx
До підручника
Інформатика (академічний, профільний рівень) 11 клас (Лисенко Т.І., Ривкінд Й.Я., Чернікова Л.А., Шакотько В.В.)
Додано
21 жовтня 2018
Переглядів
447
Оцінка розробки
Відгуки відсутні
Безкоштовний сертифікат
про публікацію авторської розробки
Щоб отримати, додайте розробку

Додати розробку