Написать программы для нахождения корня уравнения методом Ньютона - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д