СРОЧНО!!!! Створіть програмний код в середовищі Lazarus Завдання 1. Розрахунок оплати за...

Question

СРОЧНО!!!!
Створіть програмний код в середовищі Lazarus
Завдання 1. Розрахунок оплати за електроенергію (2,4 балів)
В Україні за споживання електроенергії визначено такий порядок оплати залежно від спожитого обсягу: вартість 1 кВт при споживанні електроенергії до 100 кВт за місяць – 45,6 грн, від 100 кВт до 600 кВт – 78,9 грн, понад 600 кВт – 147,9 грн.
Деяким споживачам надається пільговий обсяг безоплатного користування електроенергією, наприклад, 30 кВт. Якщо така пільга є, то її віднімають від спожитого обсягу, а далі розрахунок здійснюється за прийнятими тарифами. Розробіть у вибраному середовищі програмування проект Оплата за електроенергію, у якому користувач вносить у текстове поле обсяг спожитої електроенергії, та позначає за допомогою елементів управління (визначте самостійно) наявність пільги. Після натиснення кнопки Розрахувати отримує у вікні повідомлення розмір суми для оплати за електроенергію.

Answer 1

Procedure TForm1.Button1Click(Sender: TObject); var result, outgo, privilege, price1, price2, price3: real; begin privilege:=30; price1:=0.71; price2:=1.29; price3:=1.64; outgo:=StrToFloat(Edit1.Text); if CheckBox1.Checked = True then outgo:=outgo-privilege; if outgo < 100 then result:=price1*outgo else if (outgo >= 100) and (outgo < 600) then result:=price2*outgo else result:=price3*outgo; MessageDlg('Сума для оплати за електроенергію:' + #13#10 + FloatToStr(result) + ' грн.', mtInformation, [mbOk], 0); end;