Найти корень уравнения методом Ньютона - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

5   голосов , оценка 4 из 5
Похожие ответы