Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ
procedure TForm1.Button1Click(Sender: TObject);var result, outgo, privilege, price1, price2, price3: real;beginprivilege:=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 thenresult:=price1*outgoelse if (outgo >= 100) and (outgo < 600) thenresult:=price2*outgoelseresult:=price3*outgo;MessageDlg('Сума для оплати за електроенергію:' + #13#10 + FloatToStr(result) + ' грн.', mtInformation, [mbOk], 0);end;

560
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам