Найти корень уравнения методом Ньютона - VB (61387)
Формулировка задачи:
Доброго времени суток! Пожалуйста хелп ме с программой, сам я программу постарался написать, но она не работает.
Вот собственно говоря и программа: С использованием подпрограммы "Метод Ньютона" найти корень уравнения
e^x + ln x - 10x=0 на отрезке [3;4] с точностью 10^-4. Второе задание заключается в этом: сделать эту же программу, разбив на модули и используя юзерформ, что у меня не очень хорошо получается, а также одно из условий заключается в том, что нельзя использовать операторы ввода-вывода.
Буду очень вам благодарен!
Вот моя программка:
Решение задачи: «Найти корень уравнения методом Ньютона»
textual
Листинг программы
Private Sub Command1_Click() Dim x!, x1!, e! e = 0.0001 x = 3: x1 = 4 Do While Abs(x1 - x) > e x = x1 x1 = f(x) DoEvents Loop Form1.Caption = "ÊîðåГ*Гј ГіГ°Г*ГўГ*ГҐГ*ГЁГї = " & x1 End Sub Function f(z As Single) As Single f = z - (Exp(z) + Log(z) - 10 * z) / (Exp(z) + 1 / z - 10) End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д