Написать программы для нахождения корня уравнения методом Ньютона - VB

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

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

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

sin(3x^2-4x-5)=0

на интервале

x [1,68; 1,7]

Решение задачи: «Написать программы для нахождения корня уравнения методом Ньютона»

textual
Листинг программы
Private Sub Command1_Click()
Cls
Dim x1!, x2!, x3!, n!, y1!, y2!, y3!
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
 Print "Måòîä ГЌГјГѕГІГ®Г*Г* Гµ = "; x2
 Print "Г‡Г*Г*Г·ГҐГ*ГЁГҐ ГіГ°Г*ГўГ*ГҐГ*ГЁГї "; Sin(3 * x1 ^ 2 - 4 * x1 - 5)
 
x1 = 1.68: x2 = 1.7
Do Until Abs(x1 - x2) /2<= n
 x3 = x1 / 2 + x2 / 2
 y1 = s(x1)
 y2 = s(x2)
 y3 = s(x3)
 If y1 > 0 And y3 > 0 Then x1 = x3
 If y1 < 0 And y3 < 0 Then x1 = x3
 If y2 > 0 And y3 > 0 Then x2 = x3
 If y2 < 0 And y3 < 0 Then x2 = x3
 DoEvents
Loop
Print "Måòîä äåëåГ*ГЁГї ïîïîëГ*Г¬ Гµ = "; x3
Print "Г‡Г*Г*Г·ГҐГ*ГЁГҐ ГіГ°Г*ГўГ*ГҐГ*ГЁГї "; s(x3)
 
End Sub
Function s(ByVal x!) As Single
s = Sin(3 * x ^ 2 - 4 * x - 5)
End Function

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


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

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

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