Ваша функция не имеет корней на заданном вами интервале. Но я привожу вам код на QBasic, где реализован метод половинного деления.
Код:
REM
REM QBASIC
REM
DECLARE FUNCTION f! (x!)
CLS
a = -3
b = 3
eps = .0001
DO
x = (a + b) / 2
IF f(a) * f(x) > 0 THEN a = x ELSE b = x
LOOP UNTIL ABS(a - b) < eps
PRINT "X ="; x
END
FUNCTION f (x)
f = 1 + COS(x) / (2.5 - SIN(x))
END FUNCTION