Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB] Вычисление с точностью

Автор: Imperial_Guardian 16.12.2008, 16:22

Код


n = Slider1.Value
      a = -1
      b = 4
      t = 0.000001
        
        h = (b - a) / n
S = 0
For i = 1 To n
temp = a + i * h
S = S + f(temp)
Next i
S = h * (S)

 

Label2.Caption = Format(Abs(S), "##.#####")

Module

Код


Public a, b, n As Integer
Public Function f(x)
f = Cos(x) / (1 + Sin(x))
End Function

Программа вычисляет значение определённого интеграла методом правых прямоугольников. Но значение должно выйти с точность 0.000001 по правилу Рунге- Кутта. Если есть какие-то догадки как сделать или готовый кусок кода, буду очень благодарен.

З.Ы. Работа буквально горит smile

, не будьте равнодушны - помогите