Условие задачи
Напишите программу 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
Запись алгоритма в виде блок-схемы: