187
Решение в редакторе Visual Basic без точности представлено
на рис. 6.9.
Рис. 6.9. Решение в редакторе 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
h = (B - A) / n
IntLP = 0
For i = 1 To n
IntLP = IntLP + F(A + (i - 1) * h) * h
Next i
ActiveSheet.Cells(7, 1).Value = "По методу левых прямоугольников = " &
Str(IntLP)
IntPP = 0
For i = 1 To n
IntPP = IntPP + F(A + i * h) * h
Next i
ActiveSheet.Cells(8, 1).Value = "По методу правых прямоугольников = " &
Str(IntPP)
IntCP = 0
For i = 1 To n
IntCP = IntCP + F(A + (i - 0.5) * h) * h
Next i
ActiveSheet.Cells(9, 1).Value = "По методу центральных прямоугольников = " &
Str(IntCP)
IntTR = 0
