Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB]Решение прикладных задач

Автор: Imperial_Guardian 8.11.2008, 16:44

Доброго времени суток.
Собственно говоря, нуждаюсь в помощи решения данной задачи. Помощь нужна как можно скорее, т.к. задача прикладная и отложить её в долгий ящик нельзя. Заранее благодарен.

Рассчитать и вывести на экран(25 + n) значений тепла, проходящего через 1 м2 "чистой" стенки котла, при изменении температуры от t1 от 290 С до 230 С.

http://ipicture.ru/,

где t2 = 200 C; b1 = 20 мм; b2 = 2 мм; x1 = 50 ; x2 = 1.0

Автор: kapbepucm 12.11.2008, 16:55

Код

Sub Test()
  Dim t1 As Double
  Const t2 As Double = 200 'C
  Const b1 As Double = 20 'mm
  Const b2 As Double = 2 'mm
  Const x1 As Double = 50
  Const x2 As Double = 1
  Dim I As Long
  Dim n As Long
  Dim q As Double
  On Error GoTo ErrorLabel
  n = CLng(InputBox("n= ?", , "0"))
  On Error GoTo 0
  For I = (25 + n) To 1 Step -1
    t1 = 290 - (I * ((290 - 230) / (25 + n)))
    q = (t1 - t2) / (b1 / x1 + b2 / x2)
    MsgBox "t1=" & CStr(t1) & Chr(13) & "q=" & CStr(q), , CStr(I)
  Next I
ExitLabel:
Exit Sub
ErrorLabel:
  If Err.Number = 13 Then Resume Else Resume ExitLabel
End Sub