Решения методом итерации - VB

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

нужно написать программу решения методом итерации, написала так, но не работает, зависает при выполнении, где ошибка?

                    Листинг программы
                
 
                        
                          
                    
Public Class Form1
    Public x0, x, y, s, eps As Single
    Function f(x As Single) As Single
        f = x ^ 3 + 2 * x ^ 2 + 1.5 + x
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        x0 = Val(TextBox1.Text)
        eps = 0.0001
        x = x0
        Do
            x0 = x
            x = f(x0)
        Loop Until Math.Abs(x - x0) < eps
        TextBox3.Text = Str(x)
    End Sub
End Class

Решение задачи: «Решения методом итерации»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function f(x As Double) As Double
        f = x - (x ^ 3 + 2 * x ^ 2 + 1.5) / (3 * x ^ 2 + 4 * x)
End Function
 
Sub Main()
    xp# = Val(InputBox("x="))
    eps# = 0.0001
    Do
       xc# = f(xp#)
       If Abs(xc# - xp#) < eps# Then Exit Do
       xp# = xc#
    Loop
    Debug.Print xc#
End Sub

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

10 голосов , оценка 3.6 из 5

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

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

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