Введение в информатику. Хамухин А.А. - 217 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

216
Фрагменты программ
‗ Тестовая функция
Function FUNC(x) As Double
FUNC = Sin(2 * x) – x ^ 2 / 20
End Function
‗ Метод дихотомии
Nleft = Worksheets(1).Cells(3, 3).Value
Nright = Worksheets(1).Cells(3, 4).Value
******сюда добавить контроль правильности номеров точек
Xleft = Worksheets(1).Cells(Nleft + 2, 1).Value
Xright = Worksheets(1).Cells(Nright + 2, 1).Value
Worksheets(1).Cells(4, 3).Value = Xleft
Worksheets(1).Cells(4, 4).Value = Xright
Xpol = (Xleft + Xright) / 2
Fpol = FUNC(Xpol)
******сюда добавить чтение с листа заданной погрешности (eps)
While Abs(Fpol) > eps
Xleft = Worksheets(1).Cells(4, 3).Value
Xright = Worksheets(1).Cells(4, 4).Value
Xpol = (Xleft + Xright) / 2
Fleft = FUNC(Xleft)
Fright = FUNC(Xright)
Fpol = FUNC(Xpol)
If Fleft * Fpol < 0 Then
Worksheets(1).Cells(4, 3).Value = Xleft
Worksheets(1).Cells(4, 4).Value = Xpol
Else
Worksheets(1).Cells(4, 3).Value = Xpol
Worksheets(1).Cells(4, 4).Value = Xright
End If
Wend
********** сюда добавить запись результатов на лист
'Метод хорд-секущих
Nnach = Worksheets(1).Cells(3, 5).Value
******сюда добавить контроль правильности начальной точки
******сюда добавить чтение с листа заданной погрешности (eps)
Xpred = Worksheets(1).Cells(Nnach + 2, 1).Value
Xtek = Xpred + 100 * eps

Страницы