Напишите программу VBA для Excel для перевода температуры из градусов по шкале Цельсия (°С) в градусы шкалы Фаренгейта (F) для значений от 15°С до 30°С с шагом 1°С. Перевод осуществляется по формуле F = 1,8×°C+32.
«Напишите программу VBA для Excel для перевода температуры из градусов по шкале Цельсия (°С) в градусы шкалы Фаренгейта (F) для значений от 15°С до 30°С с шагом 1°С. Перевод осуществляется по формуле F = 1,8×°C+32.»
- Информатика
Условие:
Напишите программу VBA для Excel для перевода температуры из градусов по шкале Цельсия (°С) в градусы шкалы Фаренгейта (F) для значений от 15°С до 30°С с шагом 1°С. Перевод осуществляется по формуле F = 1,8×°C+32.
Решение:
Листинг программы:
Sub ff()
s = ""
For c = 15 To 30
f = 1.8 * c + 32
s = s "c: " c ", f: " f vbNewLine
Next c
MsgBox s
End Sub
Запись алгоритма в виде блок-схемы:
Похожие задачи
Не нашел нужную задачу?
Воспользуйся поиском
AI помощники
Выбери предмет
S
А
Б
В
Г
И
К
М
П
- Правоохранительные органы
- Пожарная безопасность
- Парикмахерское искусство
- Природообустройство и водопользование
- Почвоведение
- Приборостроение и оптотехника
- Промышленный маркетинг и менеджмент
- Производственный маркетинг и менеджмент
- Процессы и аппараты
- Программирование
- Право и юриспруденция
- Психология
- Политология
- Педагогика
С
Т
- Трудовое право
- Теория государства и права (ТГП)
- Таможенное право
- Теория игр
- Теория вероятностей
- Теоретическая механика
- Теория управления
- Технология продовольственных продуктов и товаров
- Технологические машины и оборудование
- Теплоэнергетика и теплотехника
- Туризм
- Товароведение
- Таможенное дело
- Торговое дело
- Теория машин и механизмов
- Транспортные средства
Ф
Э