35.Алгоритм нахождения значения определенного интеграла с заданной степенью точности методом правых прямоугольников. Программная реализация на VB.

Public b As Single

Public a As Single

Public Function f(d)

f = (Sqr(d - 15) / Sqr(d + 3)) + 2 * (Cos(d) / (2 * Sin(d * 2)))

End Function

Private Sub Command1_Click()

a = 20 'Нижний предел

b = 40 'Верхний предел

h = 1 ' Шаг

integral = 0

For d = a To b - h Step h

integral = integral + h * f(d)

Next d

Text1.Text = Round(Abs(integral), 3)

End Sub