Методом (половинного деления или итерации)(нужно выбрать правильный) найти корень уравнения (x-3)/(x^2+2)=0 расположенный на отрезке [-1; 4] с абсолютной погрешностью 10^-4 программа паскаль и еще нужна блок схема

182

256

Посмотреть ответы 2

Ответы на вопрос:

Husky333

Информатика

4,7(32 оценок)

Function f(x: real): real; begin f : = (x - 3) / (sqr(x) + 2) end; var a, b, x, fa, fb, fx, eps: real; begin write('введите через пробел границы интервала [a; b] и точность: '); readln(a, b, eps); fa : = f(a); if abs(fa) < = eps then writeln('x=', a, ', y=', fa) else begin fb : = f(b); if abs(fb) < = eps then writeln('x=', b, ', y=', fb) else if fa * fb > 0 then writeln('на указанном интервале корней нет') else repeat x : = (a + b) / 2; fx : = f(x); if abs(fx) < = eps then writeln('x=', x, ', y=', fx) else if fa * fx > 0 then a : = x else b : = x; until abs(fx) < = eps end end. результат выполнения программы: введите через пробел границы интервала [a; b] и точность: -1 4 1e-4 x=2.9990234375, y=-8.88257162245635e-05