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;