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