Вычисления корня уравнения методом итераций - VB

Узнай цену своей работы

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

Вот само задание по методичке:
вот мое условие: Ln(X^2+1.2)-X= 0; E= 0,0001 X0=1.5 Делаю так:
получаю переполнение. Кто объяснит, в чем я не прав?

Решение задачи: «Вычисления корня уравнения методом итераций»

textual
Листинг программы
  Dim x0 As Single
  Dim x As Single
  Dim F As Single
  Const e = 0.0001
  '
  x0 = 1.5
  'x = (Exp(x0) - 1.2) ^ (1 / 2)
  x = Log(x0 ^ 2 + 1.2)
  Do While Abs(x - x0) > e
    x0 = x
    x = Log(x0 ^ 2 + 1.2)
  Loop
  MsgBox "X=" + Str$(x) + " X0=" + Str$(x0)
  F = Log(x ^ 2 + 1.2) - x
  MsgBox "F=" + Str$(F)

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


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

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

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