Рубрика:
27
N = 0 'обнуление счётчика числа итераций
X = X1
60 N = N + 1 'начало цикла вычислений
'MsgBox ("N=" & N)
'MsgBox ("EPS=" & X)
GoSub 50
Y = F: 'MsgBox ("Y=" & Y)
X = X - H
GoSub 50
'MsgBox ("F=" & F)
If Abs(F) < E1 Then GoTo 40 'условие окончания цикла вы-
числений
If F < Y Then
X = X - H
GoTo 60
Else
X = X + H / 2
GoTo 60
End If
50 F = TB ^ (-1) - X ^ (0.25) / TR - 650 * 10 ^ -9 / 0.0143 * Log(1 / X)
Return
40 T = Int(TR / (Sqr(Sqr(X))) - 273) 'определение T
EPS = X 'определение EPS
txtT.Text = Str(T) 'описание окна вывода T
txtEPS.Text = Str(EPS) 'описание окна вывода EPS
End Sub
Private Sub cmd_Quit_Click() 'Подпрограмма СБРОС типа
Subroutine
End
End Sub
Кодом предусмотрено решение системы уравнений (8),
(9) методом подстановки значения T из уравнения (9) в
уравнение (8).
Смысл каждой операции кода поясняется соответствующим
комментарием, написанным после символа «΄» (апостроф).
и) Приступают к тестированию проекта. Для этого необходи-
мо щёлкнуть левой клавишей мыши на находящейся в ме-
ню проекта (в верхней части экрана) кнопке с изображени-
ем символа [►]. При отсутствии ошибок на экране монитора
появляется созданная на предшествующих шагах работы
форма. В окна ввода вписывают значения Тb и Тr. Затем
