Метод итераций :) - 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
Похожие ответы