188
For i = 1 To n - 1
IntTR = IntTR + F(A + i * h) * h
Next i
IntTR = IntTR + (F(A) + F(B)) / 2 * h
ActiveSheet.Cells(10, 1).Value = "По методу трапеций = " & Str(IntTR)
IntPR = 0
For i = 1 To n - 1 Step 2
IntPR1 = IntPR1 + F(A + i * h) * h
Next i
For i = 2 To n - 2 Step 2
IntPR2 = IntPR2 + F(A + i * h) * h
Next i
IntPR = h / 3 * (F(A) + F(B) + 4 * IntPR1 + 2 * IntPR2)
ActiveSheet.Cells(11, 1).Value = "По методу парабол = " & Str(IntPR)
EndSub
Решение в редакторе Visual Basic с заданной точностью представлено
на рис. 6.10.
Рис. 6.10. Решение в редакторе Visual Basic с заданной точностью
КодпрограммывVisual Basic:
Function F(ByVal t As Double)
F = -0.2 * t ^ 2 + 1.6 * t + 3
End Function
Private Sub CommandButton1_Click()
A = ActiveSheet.Cells(2, 2).Value
B = ActiveSheet.Cells(3, 2).Value
n = ActiveSheet.Cells(2, 4).Value
e = ActiveSheet.Cells(4, 2).Value
h = (B - A) / n
