' Mid-rectandles method
' for function f(x)= y(x) = x^6
Dim f(999)
s = 16108089
T = s Mod 100
a = 0
b = 1
n = 88
n = 2 * T
h = (b - a) / n
'
For k = 1 To n
x = a + k * h - h / 2
f(k) = x ^ 6
Next k
'
i = 0
For k = 1 To n
i = i + h * f(k)
Next k
MsgBox i
d1 = Abs(i - 1 / 7)
'MsgBox d1
d2 = Abs(30 / (24 * n ^ 2))
MsgBox d2
dd = Abs(d1 - d2)
'MsgBox dd