Вычисление интеграла - VB

Формулировка задачи:

Здарвствуйте. Начал программировать совсем недавно и мне задали задачу вычилсить определенный интеграл. дДже не знаю как и с чего начать. Помогите пожалуйста.

Решение задачи: «Вычисление интеграла»

textual
                            Листинг программы 
                        

                            Sub main()
  Pi = 3.14159265358979
  otvet = trap(0, Pi, 100000)
End Sub
 
Function trap(a, b, n)
  Dim s, h, i
  h = (b - a) / (n - 1)
  s = (f(a) + f(b)) / 2
  For i = 1 To n - 2
    s = s + f(a + i * h)
    trap = s * h
  Next i
End Function
 
Function f(x)
  f = Sin(x) 'тут введите Вашу функцию
End Function
                        

Оцени полезность:

15 голосов , оценка 4 из 5

Похожие ответы