Составить алгоритм и код программы рассчитывающей стоимость потребленной энергии. Бесплатный доступ к контрольной работе

Реферат.Справочник
Контрольные работы по информатике
Составить алгоритм и код программы рассчитывающей стоимость потребленной энергии

Составить алгоритм и код программы рассчитывающей стоимость потребленной энергии .pdf

Зарегистрируйся в 2 клика в Кампус и получи неограниченный доступ к материалам с подпиской Кампус+ 🔥

Условие

Составить алгоритм и код программы, рассчитывающей стоимость потребленной энергии, при условии что: Потребление энергии до 1000 кВт ч и: 1. температура на улице ниже нуля – 2 рубля за кВт ч 2. температура на улице выше нуля, но ниже +10 – 1,80 рубля за кВт ч 3. температура на улице выше +10 – 1,5 рубля за кВт ч Потребление энергии от 1000 кВт ч до 5000 кВт ч и: 1. температура на улице ниже нуля – 3 рубля за кВт ч 2. температура на улице выше нуля, но ниже +10 – 2,80 рубля за кВт ч 3. температура на улице выше +10 – 2,5 рубля за кВт ч Потребление энергии от 5000 кВт ч и: 1. температура на улице ниже нуля – 3,50 рубля за кВт ч 2. температура на улице выше нуля, но ниже +10 – 3,10 рубля за кВт ч 3. температура на улице выше +10 – 2,70 рубля за кВт ч

Решение

Потяни, чтобы посмотреть

Алгоритм:
Программа:
Module Module1
Sub Main()
Dim temp, energy As Single
temp = InputBox("Введите температуру")
energy = InputBox("Введите потребленную энергию")
If energy < 1000 Then
If temp <= 0 Then
energy *= 2
ElseIf temp > 0 And temp <= 10 Then
energy *= 1.8
Else
energy *= 1.5
End If
ElseIf energy >= 1000 And energy < 5000 Then
If temp <= 0 Then
energy *= 3
ElseIf temp > 0 And temp <= 10 Then
energy *= 2.8
Else
energy *= 2.5
End If
Else
If temp <= 0 Then
energy *= 3.5
ElseIf temp > 0 And temp <= 10 Then
energy *= 3.1
Else
energy *= 2.7
End If
End If
MsgBox("cost = " & energy)
End Sub
End Module

50% задачи недоступно для прочтения

Переходи в Кампус, регистрируйся и получай полное решение

Получить задачу

В процессе выполнения задания необходимо закодировать передаваемое сообщение

1877 символов

Информатика

Контрольная работа

Расшифруйте высказывание зашифрованное с помощью шифра Цезаря

448 символов

Информатика

Контрольная работа

Имеется следующий текст. С момента изобретения радио радиосвязь превратилась из научно-фантастической абстракции

2930 символов

Информатика

Контрольная работа

Закажи контрольную работу

Наш проект является банком работ по всем школьным и студенческим предметам. Если вы не хотите тратить время на написание работ по ненужным предметам или ищете шаблон для своей работы — он есть у нас.