В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык

Створіть програмний код в середовищі lazarus завдання 1. розрахунок оплати за електроенергію (2,4 ів) в україні за споживання електроенергії визначено такий порядок оплати залежно від спожитого обсягу: вартість 1 квт при споживанні електроенергії до 100 квт за місяць – 45,6 грн, від 100 квт до 600 квт – 78,9 грн, понад 600 квт – 147,9 грн. деяким споживачам надається пільговий обсяг безоплатного користування електроенергією, наприклад, 30 квт. якщо така пільга є, то її віднімають від спожитого обсягу, а далі розрахунок здійснюється за прийнятими тарифами. розробіть у вибраному середовищі програмування проект оплата за електроенергію, у якому користувач вносить у текстове поле обсяг спожитої електроенергії, та позначає за елементів іння (визначте самостійно) наявність пільги. після натиснення кнопки розрахувати отримує у вікні повідомлення розмір суми для оплати за електроенергію.

Ответ:
dimagolovin20
dimagolovin20
05.10.2020 17:09
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;
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?