{* Задача27 *}

REM basic

' Методом итераций вычислить на ЭВМ корень уравнения вида f(x)=0, расположенного на интервале [a;b], с абсолютной погрешностью ε. Определить также число итераций, необходимых для нахождения корня.



10 CLS : INPUT "a,b,eps:", A, B, E: PRINT "a ="; A; " , b ="; B; " , eps ="; E
30 X0 = (A + B) / 2: N = 1
40 X1 = LOG(X0) + 1.8:  D = ABS(X1 - X0)
45 PRINT "n="; N; "X0="; X0, "X1="; X1, "D="; D
50 X0 = X1: N = N + 1:
60 If D > E Then 40
70 PRINT "КОРЕНЬ              X="; X1
80 PRINT "ЧИСЛО ИТЕРАЦИЙ      N="; N - 1
90 PRINT "АБСОЛЮТНАЯ ПОГРЕШНОСТЬ"; D
100 PRINT "ТРЕБУЕМАЯ ТОЧНОСТЬ    "; E
110 End