Решить определеный интеграл разными методами (прямоугольников, трапеций и Симпсона) - VB

Узнай цену своей работы

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

здрасти! у меня проблемка, в понедельник зачет по Visual Basic в Excel, а мне нужно разобраться или хотябы посмотреть как это выглядит!?я просто не бум бум в этом... нужно решить определеный интеграл разными методами (прямоугольников, трапеций и Симпсона) и корни уравнения найти тоже несколькими методами Ньютона и делением отрезка пополам кто может помогите мне хотябы посмотреть как в общем прогараммы выглядят...
неужели никто не знает(((

Решение задачи: «Решить определеный интеграл разными методами (прямоугольников, трапеций и Симпсона)»

textual
Листинг программы
Private Sub niuton()
  Dim x1 As Double
  Dim x2 As Double
  Dim x3 As Double
  Dim y1 As Double
  Dim y2 As Double
  Dim y3 As Double
s = Sin(3 * x ^ 2 - 4 * x - 5)
n = Val(InputBox("ÏðèáëèæåГ*ГЁГҐ"))
 x1 = 1.7
Do Until Abs((x3 - x1)) <= n
 x2 = x1 - Sin(3 * x1 ^ 2 - 4 * x1 - 5) / (6 * x1 - 4) / Cos(3 * x1 ^ 2 - 4 * x1 - 5)
 x3 = x1
 x1 = x2
 DoEvents
Loop
 MsgBox "Måòîä ГЌГјГѕГІГ®Г*Г* Гµ = " & x2
 MsgBox "Г‡Г*Г*Г·ГҐГ*ГЁГҐ ГіГ°Г*ГўГ*ГҐГ*ГЁГї " & s
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

7   голосов , оценка 4.143 из 5
Похожие ответы