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

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

Задать свой вопрос
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 lt; 100 then result:=price1*outgo else if (outgo gt;= 100) and (outgo lt; 600) then result:=price2*outgo else result:=price3*outgo; MessageDlg('Сума для оплати за електроенергю:' + 1310 + FloatToStr(result) + ' грн.', mtInformation, [mbOk], 0); end;

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт