Как расчитать мощность ТЭНа - VB
Формулировка задачи:
Здравствуйте ребята! поправьте формулу вроде проста а ввела в затруднее, конечный итог должен быть=11,55, почемуто высчитывает 0,1925
Решение задачи: «Как расчитать мощность ТЭНа»
textual
Листинг программы
Option Explicit Dim tk As Single, m As Single, T As Single, P As Single, th As Single Private Sub Form_Load() m = 50 'маса tk = 10 'начальная температура th = 80 'конечная температура T = 20 'время нагрева в минутах T = T / 60 'переводим в часы P = 0.0011 * m * (th - tk) / T 'расчет End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д