Метод итераций :) - VB

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

ребята помогите решить уравнения x^3+4*x-6=0 методом итерации

Решение задачи: «Метод итераций :)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim x As Double
Dim x1 As Double
Dim e As Double
x1 = 1
e = 0.000001
k = 0
Do
    x = x1
    x1 = x - (x ^ 3 + 4 * x - 6) / 7
    k = k + 1
Loop Until Abs(x1 - x) < e
Print "x="; x
Print "k="; k
End Sub

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

9 голосов , оценка 3.444 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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