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

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

Показать ответ
Ответ:
stas7365w98
stas7365w98
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
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота