Отделить корень уравнения графически и аналитически - VB

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

Отделить корень уравнения графически и аналитически (если в уравнении корней несколько, взять наименьший положительный); уточнить корень указанным методом с точностью ε=0,001 составить программу расчетов на языке БЕЙСИК. метод касательных

Решение задачи: «Отделить корень уравнения графически и аналитически»

textual
                            Листинг программы 
                        

                            DEF FNf(x)=1 / 2 * Exp(x) + x * x - 2
'DEF FNf = 1 / (2 * Exp(x)) + x * x - 2
 
x = 2
Do
b = x: x = x - FNf(x) / (FNf(x + 1) - FNf(x))
Loop While Abs(x - b) > 0.001
Print "x = ";x
                        